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RH70 WITH 1 RPOY 
OPTIONAL 


wn MEMORY 
ADDITIONAL RPC4’S ON THE SAME RH70 





aim 
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MEDIA 


THE RPOY MULTIDRIVE EXERCISER PROGRAM REQUIRES FORMATTED DISK PACKS 
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED BY THE EXERCISER. 
SK_PACKS Fae ey ap MAY BE GENERATED BY THE RPOY FORMATTER 

OGRAM (MA ae mgt hs BY THE *W’ COMMAND OF THE RPOY MULTIDRIVE 
EXERCISER ( SECTION 4.4). THE PACKS MUST FORMATTED IN 22 
SECTOR (16 BIT) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE IS 
NOT SUPPORTED. 





PRELIMINARY PROGRAMS 
RPOY DISKLESS CONTROLLER TEST 


PART 1 (MAINDEC-11-DERPS) 
PART 2 (MAINDEC-i1-DERPT) 


RPOY FUNCT ONAL CONTROLLER ST 
FAR 1 (MAINDE TT -DERPU) 
PART 2 (MAINDEC-11-DERPV) 
RPOY DUAL CONTROLLER ROCIO TEST. (FOR DUAL PORT DRIVE TESTING) 


PART 1 (MAINDEC-11 
PART @ (MAINDEC-11-DERPQ) 


OPERATING THE PROGRAM 


EEO CRIN TH ELM Rap 


PROGRAM CAN BE INSTRUCTED T0-P PRESERVE EITHER LOADER TYPE 


PROGRAM STARTS AT LOCA it Ye Ny EROte PARAMETERS NOT INCLUDED IN 
i THE TELETYPE DIAGLOGUE CHANGED BEFORE THE PROGRAM 






THE RESTART LOCATION IS 204(8) 


ONCE THE PROGRAM IS LOADED AND STARTED, OPERATIONS ARE INITIATED AND 
CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS. 


PASS/TEST TERMINATION 
PASS TERMINATION 
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END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS. 
THE END OF PASS CONDITION USED IS DETERMINED BY PARAMETER ’ENDE’’. 


Se 
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233 A. IF PARAMETER ’ENDET’ IS 1, END OF PASS OCCURS WHEN THE DRIVE 
34 HAS READ 1.875 X 10t8 WORDS (3 X 10t9 BITS). 

35 B. IF PARAMETER "ENDET’ IS 0, END OF PASS OCCURS WHEN THE DRIVE 
es HAS PERFORMED 3 X 10t& SEEKS. 

238 3.5.2 TEST TERMINATION 



























239 

50 THE TEST FOR A ORIVE IS TERMINATED (SW<O4> = 0) WHEN: 

242 A. THE DRIVE HAS COMPLETED THE NUMBER OF PASSES SPECIFIED IN 
243 : PARAMETER ’PASCNT’. 

244 B. THE TOTAL ERRORS ACCUMULATED EXCEED 100. 

cue C. A FATAL ERROR OCCURS: EMle OR EM14. 

si2 3.6 RUN TIME 

249. THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. THE IS 


IN 
DETERMINED BY THE VALUE IN PARAMETER 'MAXDL’. 
SECTOR, THE PROGRAM RUNS IN 
ONE TRACK IN SIZE (S720 DECIMAL) T 
HEAVY MODE. THE PROGRAM T 
THE OPERATION MODE SELECTED, THE MEMORY AVAILABLE OVER 16K, THE 
READ/WRITE RATIO PARAMETER - ’RA . 

3.6.1 DATA TRANSFER MODE 
1 DRIVE - APPROXIMATELY 2.5 HRS (TO REACH 1.875 X 10t8 WORDS) 
8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 X 10t8 WORDS) 


MOTE: eH arb SAES BERGER TE TON TOE 








1 DRIVE - 1.7 HRS (1.875 X 10¢8 WORDS READ) 
ADD 1/2 HOUR FOR EACH ADDITIONAL DRIVE TESTED. 


= 

253 

es4 

ess 

256 

257 

258 

2s3 

260 

261 

cs 

26S 

266 

, 

269 IF _THE PROGRAM IS RUN WITH BOTH SW<O0> AND SW<O1> 
se SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 
e 
es 
283 
284 
5 
288 





3.6.2 SEEK VERIFICATION MODE 
. * = 1 SECTOR (25) S) 
TE "aT 1 


PARAME 
PARAMETER *MAXSEC’ = ’MINSEC’ 
SW<00> = 1 (READ ONLY MODE) 


1 ogive ~ APPROXIMATELY 2S HRS (3 X 106 SEEKS) 
8 DRIVES - APPROXIMATELY 40 HRS (3 X 10t& SEEKS FOR ALL DRIVES) 
3.7 UNIBUS & VECTOR ADDRESSES 
TO SECTION 4-2-2 FOR THE LOCATIONS AT RICH TO CHANGE THESE AODRESSES. 


UNIBUS VECTOR 
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UNIT ADDRESS ADDRESS 
RH70/RPO4 176700 es4 
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TTY PRINTER 177564 NOT USED 
TTY KEYBOARD 177560 60 
KWil-L 177546 100 
KW11-P 172542 104 
LINE PRINTER 177514 NOT USED 


DUAL PORT STARTUP 


A. LOAD THE RPOY MULTIORIVE EXERCISER PROGRAM (REVISION B OR 
LATER) INTO BOTH PROCESSORS. 

B. SWITCH THE *CONTROLLER SELECT’ SWITCH TO ’A/B’ ON EACH RPOY 
rt CH IS TO BE TESTED AS A DUAL PORT DRIVE; CYCLE THE DRIVES 


BET PPI TRE HERON DERE REN "OU 


CONTROLLING THE PROGRAM 


DATE & OPERATOR IDENTIFICATION 
WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE PROGRAM WILL 
ASK FOR A DATE ee AND FOR AN OPERATOR 1.0. ENTRY. THESE ENTRIES 


7 Reeponcee Y BE i BY ENTERING A ’CARRIAGE RETURN’ 
ONSE TO Me REQUEST PROGRAM DOES NOT EDIT OR CHECK EITHER 


Celio Pet met 
(SEE SECTION 4 
PARAMETERS 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILL BE 
ASKED TO ENTER PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


ENTER PARAMETERS: 
THE geEnat TER A BE TERM nae BY A CARRIAGE RETURN <CR> 
RL ENTRIES, ARE "TO 


Ma PAR *N’ eR By Te re WILL 
PROGRAM TLL 1peNt TIFY THE eee 


ies PAARETER COCTRL Oh DECIMAL), ON era Pi. 


SENT Waku OF 7 THES COR ANETER bed elena EY MILL bon THe 
T LETE AN pre TER, ENTRY; CONTROL U’ WILL ALLOW AN 

ENTIRE ENTRY TO BE DELETED AND REENTERED. THE PROGRAM WILL TYPE 

A *?’ IF AN ALPHABETIC OR INCORRECT NUMBER (FOR THE BASE OF THE 
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PARAMETER) IS ENTERED. IF_’CONTROL C’ IS ENTERED, THE PROGRAM WILL 
USE THE PRESENT VALUES OF THE REMAINING PARAMETERS AS DEFAULT VALUES. 


(NOTE: A PARAMETER ENTRY MUST SE TERMINATED BY A "CARRIAGE 
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353 RETURN’ TO BE ACCEPTED. IF THE PARAMETER ENTRY IS FOLLOWED BY A 
354 "CONTROL C’ INSTEAD OF A "CARRIAGE RETURN’, THE PROGRAM WILL 
355 RECOGNIZE ONLY THE ‘CONTROL C’ AND THE NEW’ PARSE TERY VALUE WILL 
58 NOT BE ACCEPTED. } 
353 4.2.1 KEYBOARD ENTRY PARAMETERS 
260 DEFAULT VALUE 
361 NAME BASE VALUE RANGE FUNCTION 
35 
365 MAXDL 10 (SEE NOTE) CONTROLS THE MAXIMUM BUFFER 
366 SIZE USED FOR DATA TRANSFERS 
67 PASCNT 10 i 1 - 999 NUNBER OF PASSES TO END OF 
363 INTRVL 10 S 0 - 256 DETERMINES THE INTERVAL (IN 
370 : MINUTES) BETWEEN AUTOMATIC 
372 ERRORS PRINTED OUT IF SW<O7>= 
373 CMPLMT 10 3 0 - "iiMXDL’ THE NUMBER OF DATA COMPARSION 
374 MAXCYL 10 410 0 - 410 THE MAXIMUM CYLINDER ADDRESS 
375 MINCYL 10 0 0 - 410 THE MINIMUM CYLINDER ADDRESS. 
376 VALUE MUST NOT BE GREATER 
77 _ THAN VALUE IN ’ , 
73 MAXTRK 10 18 0-18 THE MAXIMUM TRACK ADDRESS 
303 MINTRK 10 0 0 - 18 THE MINIMUM TRACK ADDRESS 
THE MINIMUM TRACK ADDRESS 
383 ST NOT BE GREATER THAN 
382 THE VALUE IN ’MAX 
383 MAXSEC 10 21 0-21 THE MAXIMUM SECTOR ADDRESS 
384 MINSEC 10 0 0-2 THE MENIMUM SECTOR ADDRESS 
385 THE MINIMUM SECTOR ADDRESS 
386 MUST NOT BE GREATER THAN 
387 THE VALUE IN *MAXSEC’ 
358 BEGCOD 10 5 0-5 THE IN TIAL COMMAND FOR EACH DRIVE 
ay Oe RITE CHECK HEAGER 8 DATA 
333 +S HRTE SATA 
333 3 = WRITE HEADER & DATA 
34 4 = READ DATA 
395 S = READ HEADER & DATA 
BEGPAT 10 8 1-15 THE CODE FOR THE STARTING 
PATTERN. (IF A WRITE ORDER 
38 OR A WRITE CHECK ORDER IS 
399 SPECIFIED IN ’BEGCOD’) 
400 ENDET g 000001 0 OR 1 IF PARAMETER = 1, END OF PASS 
DETERMINED BY THE "WORDS READ’ 
OUNT 
=0 
304 
33¢ 
3 
4 
+58 
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403 PERE ORM WRITE HEADER & DATA 
411 $RPAOR Og 176700 N/A THE PH7O LNIBUS ANDRESS 
412 SRFVEC Og 264 N/A THE RH70 VECTOR ADDRESS 
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SHVLOD 8 Coocs! 3 OR 1 
RATIC 8 3 ed 
RUTOCK 8 000001 0 OR 1 
NOTPRT 8 000001 C OR 1 


"x 


4.2.2 


IF PARAMETER = 0, DO NOT 
PRESERVE THE ronbens IF 
BRAIET ER > 0, PRESERVE THE 


[ 

CONTROLS THE APPROXIMATE 
RATIO OF READ TO WRITE 
ORDERS. 


VALUE R/W RATIO 


Now £Wve-O 
<= 
\ 
< 


IF PARAMETER = 1, THE PROGRAM 

PERFORM WRITE “ohteKe AFTER 

EACH WRITE CONPIAND 

IF PARAMETER = HE PROGRAM 
WI PERFORM aRite CHECKS 

IF PARAMETER = 1, DO NOT PRINT 

ERROR MESSAGES FOR DATA ERRORS 

OCCURING AT LOCATIONS DEFINED 

BY THe * sae AS BAD PACK 

iF PARAMETER NT ERR OR 

MESSAGES AecocIAtED a H BAD 

PACK LOCATIONS. 


PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 


TO ALTER THESE LOCATIONS, THE OPERATOR MUST MAKE MANUAL ENTRIES 
BEFORE THE PROGRAM IS STARTED. THE KEYBOARD ENTRY ROUTINE DOES 


ORE S 
NOT PROVIDE ACCESS TO THESE LOCATIONS. 


LOC TAG CONTENTS 

1166 SLKCSR 172540 ADDRES 
1170 =©S$LKCSB 17eS4e 

1172 = SLPVEC 104 

1174 = SLKS 177546 
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S OF KW11-P STATUS REGISTER 
ADDRESS OF KW11-P COUNTER BUFFER 
KW11-P VECTOR ADDRESS 

ADDRESS OF KW1ll-L STATUS REGISTER 
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| DERPNS.P11 
i agg 1i76 = SLLVEC 109 KiWll-L VECTOR ADDRESS 

| asa 1208 $LSCS 177514 ADDRESS OF LINE PRINTER STATUS REGISTER 
| 47] 1210 «© L508 = «177816 ADDRESS OF LINE PRINTER DATA BUFFER 

| 478 1214 #2 oy 74 (60 DECIMAL) IF SYSTEM IS 60 Hz: 

i 





473 b2 (50 DECIMAL ) IF SYSTEM IS SO HZ 
474 1216 LA 0 0 IF AN LA3C IS ON THE SYSTEM; 
475 177777 IF MOD 33 OR MOD 35 TTY 


ON THE SYSTEM 
478 4.3 SWITCH REGISTER SETTINGS 


1 HALT ON ERROR 

INHIBIT ERROR TYPEOUT 

RING THE TELETYPE BELL IF ERROR 

DISPLAY his L_ DATA aphie ERRORS 

DO NOT ALTER THE CURRENT OPERATION PARAMETERS 
PARTIAL REGISTER vo IF ERROR; DO NOT DISPLAY 


Tienbht "fedtun Eh FCOUNT Bee, DO NOT DEASSIGN 
bier, THe SECTOR IN ERROR caer RETRY ATTEMPTS) 


w 
= 
~ 
t— 
~ 
Oo 0b oe oe te 8 


+ 
w 
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4 “WCF” ERRORS OR AFTER THE c8TH 
491 me TRY 1. * UNCORRECTABLE *DCK’ ERROR. 
: "her ERRORS & SW<7> SET, DISPLAY REST 
494 SW <1> = 1 INMIBIT bata COMPARSION AFTER READ ORDERS 
4SE SW <> = 1 READ ONLY MODE 
s 
me 4.4 KEYBOARD COMMANDS 
500 THE KEYBOARD COMMANDS CONTROL THE ASSIGNMENT/DEASSIGNMENT OF DRIVES 
50: ako THE OPERATOR TO REQUEST DRIVE PERFORMANCE SUMMARIES, AND ALLOW 
ane A PACKS TO BE WRITTEN 
504 WHEN THE PROGRAM IS STARTED (OR RESTARTED), KEYBOARD COMMANDS ARE 
595 NOT RESOGNT a UNTIL THE PROGRAM HAS INITIALIZED ITSELF. THE OPERATOR 
506 MUST WAIT THE ’PROGRAM INITIALIZE COMPLETE’ MESSAGE IS TYPED 
57 BEFORE ATTEMPTING TO USE THE COMMANDS. AFTER INITIALIZATION HAS BEEN 
2ee OMPLETED, THESE COMMANDS MAY BE USED. 

19 ‘>’ THE *D’ ASK FOR 
ei ESL GPRD FARTol ok BB HR We SOREREs EE oor 
aia DRIVE E DENTIFICATION ENTRY REQUESY IS MADE By THe FOLL FOLLOWING MESSAGE: 
ei? "ENTER 1.0. FOR ORV &N:’ 

517 RATOR ER NUMBER FOR THE DRIVE OF UP TO 6 

518 CHARA ERS _IN TCENGTH: AIS” ?: D. WILL BE as ae Oe WITH THE 
519 DATE AND OPERATOR 1.0. ENTRIES (SEE SECTION 4 


TERMINATED BYR ERRRIAGE RETURN’ eae sa a STRING, 


NULL ENTRY) IN RESPONSE TO THE I:D. 


PROGRAM WILL THEN ASK FOR THE ADDRESSES OF KNOWN BAD SPOTS ON 
DISK PACK USED: 


"BAD TRK/SEC ADRS FOR ORV #N ?’ 


| 


staat tatat dit 
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S29 THE OPERATOR MAY SPECIFY UP TO 8 SAD LOCATIONS FOR THE PACK BEING 
ea) USED. THE FORMAT FOR THE BAD SPOT ADDRESS ENTRY IS AS FOLLOWS: 


i 
' 
| Sie FORMAT 1: C,T,S<CR> 
} 
} 


ee eee ae ae 
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TER DING EB oY ae RR TAGE RE UR be ior MUST BE 


I MESSAGES OR 
Ip NTIPY DATA tdi ICH OCCUR oR THE “SPECIFIED ADDRESS, 


Torte ERR 
DEPENDING ON THE V ALUE OF PARAMETER 
FORMAT 2: C,T<CR> 


LEADING ZEROS ARE NOT REQUIRED. by Fo oes MUST BE 


TERMINATED Bran o Oat RETURN’  ¢ 


THE ENTIRE” PaaeK WILL BE 
CONSIDERED Bab. . TOARAUEBRORS WILL BE HANDLED AS 
"FORMAT 1’, OapivE 


NOTE: CYLINDER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL. 


THE OPERATOR MAY BYPASS ALL ane ie rer TRACK/SECTOR A ue 
eee BY ERS A Ae eben | OF AN 


ENTRY my Ee Tene BOINT BY ENTERING A "CONTROL C7 
RY TWUST TERMINATED BY A *CARRIAGE a. 


eat Bae Te ax oT’ IN PLACE OF THE 


RETURN’ TERMINATOR FOR AN EN 
AND "CONTROL. U’ RAY BE USED 10 CORRECT MIS-TYPED CHARACTERS 
RIS-TYPED LINES. 

"T? COMMAND 

USED TO ASSIGN A DRIVE(S) FOR. TEST 

FORMAT: TN<CR> 


= DRIVE NUMBER. MAY BE 0 T0 7 OR 'A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: TO<CR> - ASSIGN DRIVE O FOR TEST 
TACCR> - ASSIGN ALL AVAILABLE DRIVES FOR TEST 


NOTE: BRIER CORMAN Is ENTERED. 


*D’ COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 
FORMAT: ON<CR> 


= DRIVE NUMBER. MAY BE 0 T0 7 OR °A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> - DEASSIGN DRIVE 0 
DA<CR> = DEASSIGN ALL DRIVES BEING 
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NOTES: 


TESTED. 


1. IF THE °D’ COMMAND REFERENCES A 
DRIVE NOT ASSIGNED THE PROGRAM 


' 
he ee eee ee ee ee 





eae &. THE DRIVES WILL BE DEASSIGNED AS THEIR 
239 OPERATIONS COMPLETE. 


zs 3. IF "DA’ IS USED, ONLY DRIVES BEING 
ESTED WILL BE DERSSIGN GNED - THE 
ERROR MESSAGE IN (1) ABOVE WILL NOT 
BE DISPLAYED. 


Sones 


4.4.3  °S’ COMMAND 


OA Se A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 


FORMAT: SN<CR> 


N = DRIVE NUMBER. MAY BE 0 10 7 OR °A’. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: 39¢ CR? - TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 
SA<CR> - TYPEOUT PERFORMANCE SUMMARY 
FOR ALL DRIVES BEING TESTED. 


NOTES: 1. IF ’SA’ IS USED ONLY DRIVES BEING TESTED WILL 
BE DISPLAYED. 


Beueen 


COMPrOrOrrmrmno 
02 bs bao 00 92 fae Fae ho Fe Be 
WONMUI£C Wc 


2. IF PARAMETER ’INTRVL’ IS oy | ZERO, THE PROGRAM 
WILL AUTOMATICALLY DISPLAY A PERF E_ SUMMARY 
Sere * DRIVE BEING TESTED AT A RATE DETERMINED BY 


3. IF THE ’SA’ COMMAND IS USED, THE PROGRAM WILL TYPEOUT 
THE OPERATOR ENTERED DATE, OPERATOR I.D., AND THE DRIVE 
1.0. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR 
I.D. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED. 


4.4.4  °W’ COMMAND 


USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPOY MULTI~ 
DRIVE EXERCISER PROGRAM. 


FORMAT: WN<CR> 


IVE NUMBER. Y BE 0 T0 7 OR A’. ENTRY MUST BE 
* TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WACCR> = WRITE DATA PACKS ON ALL AVAILABLE DRIVES. 
WO<CR> - GENERATE A DATA PACK ON DRIVE O. 


NOTES: 1. DATA PACK RATED BY THE RPOY FORMATTER PROGRAM 
“OERPLY OR BY Rpeu nec MECHANICAL ; READ/WRITE 
PRD BGRAN T 1 BERPK TEST, 15, ARE ACCEPTABLE. (PACKS 
647 WRITTEN Bye TeeTs 13 ia oR & OF "DERPK’ CANNOT BE USED 
AND MUST BE REWRITTEN. ) 


é {STEEP SOO ONISALERR ERR SRERE 
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593 WILL TYPEOUT ’?DRIVE NOT ASSIGNED’ 
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&. THE 'W’ COMMAND SHOULD NOT BE USED UNLESS ’MAXDL’ 
PARAMETER IS APPROXIMATELY 1 TRACK IN SIZE - SO00 (i9). 
| 
| 


IF THE BUFFER SIZE IS MUCH LESS THAN 1 TRACK, THE 
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TIME REQUIRED TO WRITE A DATA PACK IS TOO GREAT TO 
BE PRACTICAL. 
3. THE 'W’ COMMAND PERF ORNS A SEQUENTIAL WRITE OF THE 
PACK USING A 'WRITE DATA’ COMM BND, THE pare PATTERN 
USED FOR EACH a ITE IS SELECTED ANDOML WEVER 
THe, OPERA oH, OF THE COMMAND IS SEQUENTIAL BEGINNING 
ihe *MINCYL’, *MINTRK’ AND CONTINUING TO *MAXCYL 
4. THE ’W’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES 
THAT THE FORMAT OF THE PACK IS GOOD. 
S. THE ’W’ COMMAND CANNOT BE STARTED IF SWITCH O (READ 
ONLY MODE) IS SET. IF SWITCH O SET SET DURING THE 
OPERATION OF THE *W’ COMMAND, THE DRIV VE PERFORMING THE 
’ COMMAND WILL IGNORE THE SWITCH 
6. THE DATA WRITTEN IS VERIFIED BY A ’WRITE CHECK DATA’ 
COMMAND. 
4.4.5  °R’ COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 


4.4.6 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ’A’. _ Se et 
TERMINATED BY A CARRIAGE RETURN <CR> 


EXAMPLE: RA<CR> - READ THE PACKS ON ALL OF THE ONLINE DRIVES. 
RO<CR> - READ THE PACK ON DRIVE O. 


NOTES: 1. THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA 
READ. HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL. 


@. THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS 
SPECIFIED BY *MINCYL’ *MINTRK’ TO THE ADDRESS SPECIFIED 
BY "MAXCYL’, *MAXTRK’. THE READ WILL BE SEQUENTIAL. 
GENERAL COMMAND INFORMATION 
A. WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME 


B. IF THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE 
"INVALID COMMAND’ . 


C. DRIVES ASSI (WITH THE °T’ COMMAND) OR DEASSIGNED (WITH THE 
*D’ COMMAND) BE ENTERED IN ANY SEQUENCE. 


D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 
RESPONSE COMMAND (S) 
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OFFLINE 
NOT ASSIGNED 
ALREADY ASSIGNED 


22z 
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713 ?UNIT N NOT PRESENT T, W, R 
714 °UNIT N UNSAFE W, R 
715 ul NIT N NOT AN RPOY T, WW, R 
716 
717 
ig 
20 5. PERFORMANCE SUMMARY TYPEOUT 
ra - C—O 2 a a 
722 
723 5.1 THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
724 BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
725 IF THE PARAMETER ’INTRVL’ IS NOT ZERO OR CAN BE DISPLAYED ON 
726 REQUEST BY THE OPERATOR THROUGH THE USE OF THE °S’ COMMAND. 
se THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 
729 *DRV? THE DRIVE NUMBER 
730 *Pass’ THE PRESENT PASS COUNT FOR THE DRIVE 
731 ORDERS’ THE NUMBER OF ORDERS PERFORMED BY THE DRIVE 
732 *SEEKS? THE NUMBER OF SEEK OPERAT TONS | THE DRIVE PERFORMED 
733 ’WRDS XFER’ THE TOT: TAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE 
734 MRDS READ’ THE TOTAL NUMBER OF WORDS READ BY THE DRIVE 
735 *SOFT’ THE NUMBER OF SOFT DATA ERRORS 
736 *HARD’ THE NUMBER OF HARD DATA ERRORS 
737 SKI’ THE NUMBER OF ’SKI’ OR ’OCYL’ ERRORS 
738 *MISP? THE NUMBER OF POSITIONING ERRORS 
33 OTHER’ THE TOTAL ERRORS OF OTHER TYPES 
741 NOTE: RRORS EMI, EMe EM3, EM4, & EM1O ARE NOT INCLUDED IN 
ie *OTHER’ ERROR TOTAL. 
a 5.2 SOFT/HARD ERROR DEFINITIONS 
ob 5.2.1 HARD ERRORS 
748 A. A ’DTE’ (DRIVE TIMING ERROR) OR A "DOK" (DATA CHECK ERROR 
749 WHICH OCCURS DURING A READ DATA OR A READ HEADER & pata GPERATION 
750 AND IS NOT CORRECTED OR BECOMES CORRECTABLE AFTER THE PROGRAM 
751 HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD SECTOR. 
752 THE RETRY SEQUENCE IS !5 RE-READS AT TRACK CENTER AND 2 ATTEMPTS 
753 AT EACH OF THE POLLORING OFFSETS: 
755 +400 MICRO-INCHES 
756 “400 MICRO-INCHES 
| 757 +800 MICRO-INCHES 
| 758 -B00 MICRO-INCHES 
753 +1200 MICRO-INCHES 
760 -1200 MICRO-INCHES 
7be 5.2.2 SOFT ERRORS 
764 A. ECC CORRECTABLE *DCk’ ERRORS. 
765 B. ‘DCK’ & "ECH’ ERRORS WH ECOME ECC CORRECTABLE DURING 
76 TRY OR R MHICH A BRE READ READ coer CTLY DURING RETRY. 
| 76 C. HEADER RE ATA, READ HEADER & DATA, OR 
| 768 WRITE DATA ORDERS. 
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D. ‘OTE’ ERRORS WHICH +3 


CORRECTED OR WHICH BECOME ECC CORRECTAGLE 
*DCK* ERROR DURING THE RE 


TRY SEQUENCE. 
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DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH “RDDAT’ (READ DATA) OR *RDHD’ 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


THE OPERATION TERMINATED WITH *DCK’ SET AND THE ERROR 
IS ECC CORRECTABSLE OR THE SECTOR IN ERROR IS READ 
CORRECTLY AFTER RETRY ATTEMPTS. 


VERIFICATION OF DATA WRITTEN 


RETER EACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED WITH THE 
APPROPRIATE WRITE CHECK COMMAND - IF PARAMETER "ALTOCK’ IS ! 
(IF *AUTOCK’ IS 0, ER TTE CHECKS WILL BE PERFORMED RANDOMLY. i. 


SECTOR REFORMATTING 


THE PROGRAM WILL REFORMAT AN UNCORRECTABLE ERROR SECTOR IN THE 
FOLLOWING CASES (PARAMETER *FORMAT’ MUST BE SET AND SW<O0> = Q). 
THIS PREVENTS THE SAME ERROR FROM SEING CONTINUOUSLY REPORTED. 


A. DATA CHECK ERRORS - EM21 
HEADER READ ERRORS - EMCO, EM24, EM2S, EM26, EM27 
DRIVE TIMING ERRORS - EMS] 
OPERATION INCOMPLETE ERRORS - EM3e 
WRITE CHECK ERRORS - EM22e, EM23 


BAD TRACK/SECTOR FLAGGING 
SINCE ee SUBSYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRACK 
RANGE ING C Ny, THE MUL TIORIVE whettba ALLOWS THE OPERATOR 
NTIFY 0 8 BAD TRACK/SECTOR LOCA IS 
ON 4.1 FOR 
C 


moow 


ASSIGNED FOR TEST. (SEE SECTI 


1 
IF ONE OF THE FOLLOWING ERRORS OCCURS AT AL 
tone THE PROGRAM WILL INHIBIT THE E 


DATA creck sonar x vee? 
we TNKCPOL ETE "WCE*) 


Te ERnORS ("OPI") 
Prive, " THING ("OTE") 
("FER’ & "HCRC’, *HCE’ & ’HCRC’, *HCRC’) 


OPTIONALLY THE OPERATOR MAY REQUEST AN ERROR REPORT FOR FLAGGED 
AS. TER ’NOTPRT’ MUST BE SET TO CO AT STARTUP.) THE 

PROGRAM WILL IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE PACK: THESE 
ERRORS | WILL NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE 
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PINE PRINTER. ALL ERROR C ITTONS ARE REPORTED IN ERROR MESSAGES: 
THE PROGRAM CONTAINS NO CODED ERROR HALTS; IF THe PROGRAM HALTS 
(ASSUMING, OF COURSE. THAT SW<15) IS NOT SET) UNRECOVERABLE 
PROGRAN CONDITION HAS OCCURED OR A RENT RAL pRoceesta FAILURE HAS 


ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
3. SEVERAL AL OPTIONAL LINES WHICH MAY Y APPEAR WITH IT. ALL OF THE 

Pees ERROR MESSAGE LINES WHICH MAY APPEAR ARE GIVEN IN THE 

SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

MESSAGES EM1, EM2, EM3, EM4Y, EMS, EMIO, EM11, 8 EM12 ARE ALWAYS 

DISPLAYED try. "THE OTHER’ MESSAGES ARE DISPLAYED ON EITHER 

THE LINE PRINTER (IF AVAILABLE) OR THE TTY 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE. ) 

MESSAGE 

TA TEXT 


EM ILLEGAL RH70 INTERRUPT (SC=0 OR RHAS=0) 


THE RH70 INTERRUPTED AND EITHER ’SC’ FOR NOT SET OR 
RHAS WAS ZERO AND NO RH70 ERROR WAS INDICATED. 


EMe UNEXPECTED ATTENTION DETECTED 


THE INDICATED DRIVE PERAUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION 


EM3 CONTROL BUS PARITY ERROR DETECTED BY THE RH70 


THE RH70 DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


EM4 CONTROL BUS PARITY ERROR DETECTED BY THE RPOY 


THE INDICATED RPOY DETECTED A CONTROL BUS PARITY ERROR 
WHEN THE RH70 LOADED THE SPECIFIED REGISTER. 


EMS ATTENTION FROM AN OFFLINE DRIVE 
THE ATTENTION IT As § SET FO FOR A a DRIVE WHICH WAS NOT 
BVATLABLE. onli T NECESSARILY INDICATE 

AN ERROR C [righ SAGE WILL OCCUR IF DRIVES 
NOT BEING Oph ot TR VCYLED UP OR DOWN. 
EM1O | _-UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
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| 99 REGISTER. 
| 31 EM11 FATAL MASSBUS PARITY ERROR 


a ee RE PRE SRE SS RS ae ee RS SR SRE RS A RE A 


A CONTROL BUS PARITY ERROR OCCURED WHEN iL ‘hes ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERRO 


EM12 PERSISTENT DEVICE UNSAFE 
THE DRIVE BECAME UNSAFE; DRIVE CLEAR To THE PRIVE DID 
NOT CLEAR THE UNSAFE CONDITION. THE PROGRAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE BRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN. 
CLEARED. 

EM13. OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
AFTER THE OPERATION WAS INITIATED. 


EM14 UNIT WENT OFFLINE 


THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION. 


Sissi nb dale oealis REP elt NP Te 
WITH THE °T’ COMMAND TO RE-INITIATE TESTING. 


EM1S NO RESPONSE TO PORT REQUEST 
geet 13 TE restaN 0 Cum. PORT DRIVE WHICH HAS NOT SWITCHED 
10° THe REQUESTING WITHIN 40. la AFTER PORT REQUEST 
TO THE DRIVE FROM THE REPORTING 


EMe0 HEADER CRC ERROR 


cosamccosaaa 2 


1010.0.0.0.0.0.0.00 
0+ 0 2 b= 6 = be 902 Bp 
WOONMOUIS ulur-C 


A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
foe cont Ne Pee HEADER ARE DISPLAYED. THE OPERATION WILL 


EM21 DATA CHECK (’DCK’) ERROR 
A DATA CHECK ERROR WAS DETECTED at THE SHOICOTED SECTOR. 
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WIL BE INITIATED 
Fore SECTOR IN ERROR IF THE ECC HARD ERROR (’ECH) BIT 
EM22 WRITE CHECK ERROR - DATA CHECK (*DCK’) SET 
4 AIS CHEE, ar gee AND THE DATA CHECK (’DCK’) BIT 


MES; JF THE. "ECH’ BIT 1S SET, THE OPERATION KILL 
EO aL A 
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EM23 WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET 
HOROS MECH CAUSED THE ERROR ARE DISPLAYED IN THE’ ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 
EN24 HEADER READ ERROR - ’FMT’ BIT DROPPED 


FESS SSS RA pastas why ya aa 


eee ee anes ase a owe 
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949 

950 A WRITE DATA gh CHECK DATA, OR A READ DATA WAS BEING 

ae4 TERR OF BND 8 *FMT’ ERROR OCCURED, THE PROGRAM R i THE 
ADER THE ERROR SECTOR AN wore? PIT WAS SET 


. 
- ‘ 
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CONTENTS OF_THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 
EM2@S = HEADER READ ERROR - HEADER COMPARE (’HCE’) ERROR 


SIMILAR_TO EM24, EXCEPT THAT THE *HCE’ ERROR BIT WAS 
SET INITIALLY. ‘THE OPERATION WILL BE RETRIED 3 TIMES. 


EMe6 FORMAT ERROR (’FER’) 
FORMAT ERROR OCCURED. WHEN THE HEADER WAS RE-READ 
oven! WAS NOT SET. THE CONTENTS oF TH THE HEADER AE 
piSeLay THE OPERATION WILL BE RETRIED 3 TIMES. 
EM27 HEADER COMPARE (’HCE’) ERROR 


SIMILAR TO EM2& EXCEPT THAT THE *HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


EM30 MISCELLANEOUS DRIVE ERROR 


THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
"IXE’, AOE’, "RMR’, ’ILF’, OR ’ILR’ 


EM31 § OPERATION INCOMPLETE (’OPI’) ERROR 


BN OPERATION INCOMPLETE ERROR OCCURED AT THE INDICATED 


EM32 ORIVE TIMING (*DTE’) ERROR 


DRIVE TIMING ERROR OCCURED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


EM33. PARITY (’PAR’) ERROR AFTER OPERATION STARTED 


THE ’PAR’ BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


EM34 WRITE CLOCK FAILURE (’WCF’) 


wert CLOCK PRILURG 0ee DURING THE OPERATION. THE 
OPERAT ON WILL BE RETRIED 3 TIMES. 


EM3S § INVALID ADDRESS (’IAE’) ERROR 

AN INVALID ADDRESS ERROR OCCURED DURING THE OPERATION. 
EM36 WRITE LOCK (’WLE’) ERROR 

. onnane OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 


i Ad al 





o 
3 
















EM40  RH70 OR UNIBUS TRANSFER ERROR 
"TRE’ IS SET IN THE RH70 CONTROL REGISTER AND NO DRIVE 
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/ 1009 ERROR HAS OCCURED. THE OPERATION WILL BE RETRIED 3 

| 1010 TIMES IF THE ERROR WAS CAUSED BY "DLT", ’UPE’, 'MXF’, 
182 aeons, 
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EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
~ ae Te cre nape ae es Me THE BUS ADDRESS INDICATES 
PRRE ET futEe FOF WORD S WERE TRANSFERED OR THE 
WORD COUNT Ree STER IS NOT ZERO. 
EM42 DATA COMPARE ERRORS - NO RPOY ERROR DETECTED 
NO RPOY ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


EM43  CAN’T MATCH DATA READ WITH A PATTERN 


ie pare IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 


EM44 § ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH70 
THE OPERATION COMPLETED HOWEVER, THE PROGRAM 
F THER ERROR BITS INTHE R RPOY SET OR ERROR BITS IN 
EMSO § SEEK INCOMPLETE OR OFF CYLINDER ERROR 
THE DRIVE SIGNALED EITHER SKI’ OR ’OCYL’ ERROR BITS. +f 
EMS1 PROGRAM DETECTED POSITIONING ERROR , 
A HEADER COMPARE ERROR OCCURED (’HCE’): HOWEVER THE 
PROGRAM EXAMINED T THE HEADER OF THE SECTOR thi ERROR Nt 
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS 
OF ’RHCC’ OF THE DRIVE. THE DRIVE WILL BE RECALIBRATED 
EM60 DEVICE UNSAFE 
THE INDICATED DRIVE UNSAFE ERROR OCCURED; THE ERROR WAS 
CLEARED BY A DRIVE CLEAR’ INSTRUCTION. 
7.2 DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


TT:TT:TT (DESCRIPTION OF ERROR) 
"TT: TT: 1T’ IS THE TIME SINCE THE PROGRAM 


WAS STARTED. TT:TT:TT IS GIVEN IN HOURS: 
MINUTES: SECONDS. 
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RPNB.P1] 
1383 (DISPLAY OF THE RH79/RPOY REGISTERS IN TWO 
1074 GROUPS: RHCS1,RHCS2, RHDS1 RHERI ,RHER2, RHERS 
107 RHEC1, 8& RHECO FORM THE FLRST GROUP OF REGISTERS; 
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ALL T HE OTH OTHER PEGISTERS ARE _IN THE SECOND GROUP. 
S) ONLY THe REGISTERS IN THE FIRST 
GROUP WILL Re SBISPLAVED. 


MNEMONICS USED FOR THE DATA TRANSFER ORDERS ARE DEFINED BELOW: 


WCKD - WRITE CHECK DATA (OCTAL S1) 

WCKHD = WRITE CH 404 WenOeR & : me (OCTAL 53) 
WRTDAT - WRITE DATA (0 To BD 
ale - WRITE CHECK HE DATA (OCTAL 63) 
RDDAT - READ DATA 

HD - READ HEADER & BATA. (OCTAL 73) 






"ERROR OCCURED DURING NON-DATA TRANSFER OPERATION’ 


THE ABOVE LINE WILL BE PRINTED IF THE ERROR OCCURED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 


*# ERROR AT BAD TRACK/SECTOR’ 
THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
PARAMETER 


ON THE PACK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. 
"NOTPRT’ MUST BE O FOR THE ERROR TO BE REPORTED. 






A WORD CALLED *STATUS’ IS DISPLAYED WITH THE RPOY REGISTERS. THE 
CONTENTS OF THIS WORD POENTIFY HOW THE ERROR WAS PROCESSED BY THE 
Beer OMe LER ROUTI THE BITS IN THIS WORD ARE ENCODED 














tk. we AB 
15 ERROR OCCURED 
BONE (B1vO7=1); BITS 6-3 SPECIFY TYPE. 
14 DRIVE IS OFFLINE 
12 PERSISTENT UNSAFE CONDITION EXISTS 
ll UNCORRECTABLE ERROR OCCURED 
10 FATAL PARITY ERROR OCCURED. MASSBUS CLEAR 
WAS PERFORMED 
3 OPERATION NOT COMPLETED WITHIN 1 SECOND 


MASSBUS CLEAR PERFORMED. ALL OTHER 
OUTSTANDING OPERATIONS WERE RESTARTED. 


DONE - OPERATION COMPLETED 

DATA ERROR OCCURED DURING THE TRANSFER 

ERROR OCCURED WHILE SEARCHING FOR THE ' TRANSFER’ 
SECTOR 








| MO3 
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CORRECTABLE UNSAFE CONDITION OCCURED 
DRIVE ERROR OCCURED THAT CAUSED AN AUTOMATIC 
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1133 RECALIBRATE SEQUENCE 
1135 LINE 3 
ie j Siero eer 
1138 ERROR AT CXXX TYY SZZ PREV ADDR = CUUU TvV SWW 
tii THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
1141 DISK ADDRESS ARE GIVEN IN TH HIS, LINE. CYLINDER, TRACK, & 
td SECTOR ADDRESSES ARE IN DECIMA 
1244 LINE 4 
He Gok ee ee a 
1147 PRESENT ADDR = CXXX TYY SZZ PREV ADDR = CUUU TVV SH 
1149 THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
1150 THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECTOR 
1151 ADDRESSES ARE GIVEN IN DECIMAL. 
1153 LINE 5 
1154 coencee 
1155 
1158 START CYL = XXX END CYL = YYY 
1158 THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
1159 AND THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 
1160 CIMAL. 
116} 
1162 LINE 6 
1 EES dee Mt ee le aaa g: 

| tte START CYL = XXX END CYL = YYY ACTUAL CYL = 222 

| 1167 THIS bane IDENTIFIE te STARTING CYLINDER OF AN IMPLIED SEEK, 
1168 TINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 

| 1168 te pER AT. CYLINDER ERORESGES ARE IN DECIMAL. 

| 4171 LINE 7 
by) Bee ae cere eee 
1173 
1174 RHBA = XXXX RHWC = YYYY 
1176 THIS LINE GIVES THE CONTENTS OF THE RH70 BUFFER ADDRESS 
1177 REGISTER AND THE RH70 WORD COUNT REGISTER. THIS LINE IS 

| 1178 NOT PRINTED IF SM<OS> IS NOT SET. 

| He0 LINE 8 
1133 eeceeecee 

| 1183 START CYL = XXX START TRK = YY START SECTOR = 22 
1185 THis INE I THETES THE St STARTING DISK ADDRES 

| 1186 Ration SO LINOER , AND SECTOR VALUE Ore Ecinare 

| 1ee LINE 9 
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1193 THIS LINE GIVES THE CONTENTS OF THE SPO4 TRACK AND SECTOR 
1194 ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
113s ADDRESS REGISTER. THIS LINE IS NOT PRINTED IF SWOS> IS NOT 
1196 SET. 
1197 
1198 LINE 10 
ae oh Ree Pah as 
120 BUFFER ADDR = XXXX SIZE = YYYY ACTUAL NUMBR WROS XFRD = 2222 
1203 THIS LINE GIVES THE STARTING AODRESS OF THE BUFTER USED FOR THE 
1204 CURRENT DATA TRANSFER OPERATION, ITS neue AND THE ACTUAL NUMBER 
1205 OF WORD TRANSFERED. THE STARTING ADDRESS OF THE SUFFER IS IN 
1e0 OCTAL, THE SIZE AND WORD FRANSFERED” OA DE ARE IN DECIMAL. 
1208 LINE 11 
fa rea ae aa 
tei GOOD DATA = XXXX BAD DATA = YyYY SECT POS = 222 
1213 THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE DISK 
1214 AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 
iets POSITION IS IN DECIMAL. 

| 3817 LINE 12 

ES i: hy Ey ine pees 

iss? HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX 

| lez2 THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 

| ie23 GAVE THE ERROR. 

| i2e4 
1225 LINE 13 

BS ieee eee ee eee ee 

| i227 

ieee RHEC] = XXXX RHEC2 = YYYY 

| 3230 THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 

ies] WHICH BE ECC CORRECTABLE DURING RETRY. 

1233 LINE 14 
1234 eecesoe 

| p35 

18% ECC CORRECTABLE WITHOUT OFFSET 

i lea THE SECTOR IN ERROR IS ECC CORRECTASLE; NO RETRY ATTEMPTS ARE 

| 3p39 NECESSARY. 

| 1240 
te4) LINE 15 

| iets eeceene 

lev READ CORRECTLY AT OFFSET X MICRO-INCHES 

/ [eae THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
1247 OFFSET VALUE. 
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1249 LiNE 16 


leS2 ECC CORRECTABLE AT OFFSET * MICRO-INCHES 


04 
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THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


BERRBERERS EI REAS 


1 
1533 THE SECTOR IN ERROR BECAME ECC CORRECTASLE AT THE INDICATED 
1esS OFFSET. 
1538 LINE 17 
1 Rete Sacro ge ee 
12593 
a CORRECTED ON X RETRY 
iss THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 
1 ATTEMPT. 
1264 
1265 LINE 18 
1 i ee OS oS eee ee 
1267 
158 UNCORRECTABLE AFTER X RETRIES 
i270 THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE 
1574 INDICATED NUMBER OF RETRY ATTEMPTS. 
1273 LINE 19 
re. Mth ee er a) jet es eS . Sep, ieee 
1275 
1678 DIFFERENT ERROR CURING RETRY 
1278 WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURED. 
1279 IF THIS LINE IS PRINTED, THE RH70/RPO4 REGISTERS WILL ALSO BE 
1680 PRINTED (SEE LINE 2). 
: lege LINE 20 
1283 coreon- 
ize4 e | 
ic DATA COMPARISON ERRORS | 
4 A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
1289 LINE 21 
See), A ee oe i Oe i a 
| 1251 
1 TOTAL COMPARE ERRORS = XXXX 
1294 THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMAL. 
| LINE 22 
| 
| 
| 





| ins eer ee ee ne ee rn see ee re en eee 
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i 
+f THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. 
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313 

314 LINE 24 

315 coeceee 

3 ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 

319 THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR ’DCK’ ERRORS 
WHICH ARE ECC CORRECTABLE OR WHICH H BECOME ECC CORREC TABLE DUR DURING 
RETR XXX’ IS THE WORD OFFSE FROM *RHECI’ Si 
ECIMAL. 
LINE 25 ¥ 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN’T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 


Heh Rok ToS BTR AM NR its: “HE 
CONTENTS OF THE SECTOR FOLLOW THIS 


ORDERS: WWW ERRORS: X WRDS XFR: YYYY WRDS READ: 2222 
THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 


weROEr Soba ren He OTe ia OF COMMANDS GIVEN TO THE DRIVE 


"E IS THE TOTAL ERROR COUNT A THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


"WROS XFR’ IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY 
THE DRIVE. 


*WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 
LINE cs 


ee ee ree ee 


ORDERS: WWW TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI, OCYL ERR = 2 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


"ORDERS’ IS THE TOTAL NUMBER OF ORDERS GIVEN TO THE ORIVE WHICH 
REPORTED THE ERROR. 


> we oe ee. cee += 


0s O-2 Bh = O02 BO = BF = 0 0 0-2 + 0 8 oh 0 = = 0 0-2 F< & 2 = & 2 = 9-2 0 9 > 9 -- 0 9-2 ge 


RENTERS RMON SS Shh Tome SARE ODRO RENO TEs 
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10 ‘TOTAL SEEKS’ IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
132) BY THE DRIVE. 
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"TOTAL POS ERR’ IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH 
THE PROGRAM DETECTED FOR THE DRIVE. 


"TOTAL SKI,OCYL ERR’ IS THE TOTAL NUMBER OF ’SKI’ OR ’OCYL’ ERRORS 
SIGNALED BY THE DRIVE. 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 
WHEN THE PROGRAM IS STARTED FROM LOCATION 200(8), ALL TABLES AND 
PARAMETERS ARE CLEARED OR INITIALIZED. T 
UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED 
CONSISTENCY. RH7O INTERRUPT ENABLE (’IE’) I Y KEYBOARD 
INTERRUPT ENABLE IS SET, AND THE KW11-L OR KW P cLock IS STARTED. 
WHEN THESE ACTIONS HAVE BEEN COMPLETED, THE PROGRAM TYPES OUT 
a ROGRAL INTIALIZE COMPLETE’. COMMAND ENTRIES WILL NOW BE ACCEPTED 
THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 
) T0 gs IGN 

3} pRiy OUT REQUESTS 

3) DRIVES REQ Be oTRTNe sis INITIATION, BUFFER ASSIGNEMENT, 

4) DRIVES Fine c CURRENT OPERATIONS. 
FO Ge eS aa etree he Teer pa Ga 
TN THE CBee, OF THE PR HEN A DRIVE 18 ae Stoneb ( HP 
a A aver ig Peeaeh Is erm THE KEYBOARD ENTRY bet VERIF evEN THAT THE 


in beer INSTRUCTION Meera FMT. AND ISSUES” 


Pen ese a INSTRUCTI 
THe, OPERA FOR cf ah SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION 6 WRITE OR WRITE CHECK ORDER, THE ASSIGNED Burren 


Tested ree 


Ueno enmunedie™ om 


THE COMMAND INITIATION ROUTING FIRST eT AT THE CYLINDER ADDRESS OF 


Pica eta oc er ae acl eee 


10 man Tie P TherareR WITH T’ Gas WHICH Be Te 5 SECTORS EARLIER 
inte wit He erect Erte 
DRIVES, ARE Toys oh ere ove) WER & SERRA 


rt net Bt Sima, ue mene 


COMPARES THE POSITION OF THE ISK WITH THAT OF THE DESIRED SECTOR. 


wn 





a eae ee 
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1429 

1430 IF OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED. THE 
14 PROGRAM THEN ARSUES THE REQUESTED ORDER TO THE DRIVE NEAREST ITS 

14 TRANSFER SECTO HE DRIVES NOT SELECTED WILL HAYE ANOTHER SEARCH 


or ce ers oe enn oe we co nme 


ee eee ee 
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1433 INITIATED. IF @ DRIVE IS NOT SELECTED FOR TRANSFER AFTER THREE 
1434 REVOLUTIONS OF ITS DISK im Is GIVEN PRIORITY OVER DRIVES WHICH HAVE 
143 NOTE BEEN ON CYLINDER AS LON 

1338 WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 

1438 ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 

1440 IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS 
144] ARE CHECKED 10 VERIFY THAT NO ERROR BITS ARE SET; THE RH? $s 
1442 AND WORD ¢ T ADDRESS REGISTERS ARE CHECKED TO VERIFY THAT THE 

1443 CORRECT NUMBER OF WORDS HAVE BEEN N TRANGSFERED AND THAT THE TWO REGISTERS 
1444 ARE CONSISTENT WITH EACH OTHE HER; fhe THE ORDER WAS A READ ORDER, THE 
1445 DATA BUFFER IS C eth Eourtice 1S COM COMPLETED, THE DRIVE 
1446 1S RETURNED TO THE RESIGNED, Incr E List. HE PROGRAM THEN 


1447 INITIATES A DATA TRANSFER ON A NG DRIVE AND RESELECTS AND 
1448 REINITIATES ANOTHER OPERATION oN” ve RELEASED DRIVE. 


14 ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
1451 ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 


i453 A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 


i4SS PERSISTENT UNSAFE CONDITION - EMle 

14S6 Lene MAS PAR TY cw EM10 

126 pire. MAS PAR anit 

1 OPERATION NO TED HETHIN ME LIMIT - EM13 

1iz8 UNIT WENT OFFLINE - EM14 

ues B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 
1463 Porn Uoeek - Eee 

Ives Baie tant gaa 

1 WRITE CHECK WITH DCK eT - EM22 

‘ HEADER CRC ERRORS - EN20 


te urs ts 
14 SEO ORAN TEC TIONING’ ERROR - EMS1 
SEE OR OFF CYLINDER ERROR - ENSO 


- EMe3 
1473 4 OR fous OE TareR ERROR - EM4O 


1475 *PAR’ ERROR - EM33 

1476 "WCF’ ERROR - 

172 BE, EOE > 

iia MI OUS DRIVE ERROR - EM30 

ie C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 
1483 ae Baste ne ston Com pe INCORRECT - om 

1485 ONT earch bata W The’ A PATT 

ie cay BIT(S) SET, "Read Mt ERROR Tem eet BY THE RH70 - EM44 


1488 8.2 


4 
1484 ERROR DE TECIED - EM42 
| DUAL PORT OPERATION 
| 
| 


| 
| 
i 


| 
| 
| 
| 
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1450 
1431 
1492 
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DUAL PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRISED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEGUENCE INITIATION 


AND ORDER TERMINATION. 
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NORMAL MANNER (SEE SEC E). 
IF "DVA’ WAS NOT SET, THE PROGRAM MAKES AN ENTRY FOR THE “DRIVE 
IN AN INTERNAL ’PORT REQUEST PENDING’ TABLE AND ; 
STARTS A 10 SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 

NOT SWITCHED TO THE REQUESTING SYSTEM WITHIN THE 10 SECOND INTERVAL 
THE PROGRAM REPORTS A 'NO RESPONSE TO PORT REQUEST’ ERROR. NORMALLY 
THIS ERROR MESSAGE ai NDICATES A FAILURE IN THE DUAL PORT CONTROL 

LOGI IC IN THE RPOY ESTED; HOWEVER, UNDER CERTAIN CONDITIONS 


sco rat ry eRORe Bring REPORTED ON THE OTHER SYSTEM 

nt MOD33 He OTH ER PROCESSOR WAS UNABLE TO PROCESS THE DRIVE 
ON ER IT HAD THE DRIVE. THE OPERATOR MUST BE AWARE OF 
WHAT The SOOER QuESTED IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 


AFTER THE RPOY HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS BND ISSUE A "RELEASE’ TO THe DRIVE j IF THE OPERATION 
TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASE TIL 
ERROR PROCESSING HAS BEEN ¢ COMPLETED. NOTES THAT T gRRED ay 
EXTENDED INTERVAL IN THE CASE OF A DRIVE UNSAFE WeTeH CAUSES THE 
DRIVE TO CYCLE DOWN BUT WHICH IS CLEARED BY THE DRIVE CLEAR 


SINGLE PORT DRIVES, DRIVES WHICH ARE LOCKED ON PORT, OR WHICH ARE 

IN NEUTRAL BUT NOT BEING eae TA THE OPPOSITE PORT ARE STILL 

TREATED AS DUAL PORT DRIVES IN THAT A RELEASE COMMAND IS ISSUED 

4 THE END OF NORMAL ORDER PROCESSING. OR AT THE END OF ERROR PROCESSING. 
ASE COMMAND IS UNDER THESE CONDITIONS HAS NO FUNCTIONAL 

EFFECT ON THE OPERATION OF THE DRIVE. 


SELECTION OF OPERATION VARIABLES 


A. SECTOR ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
*MINSEC’ AND *MAXSEC’. TRACK ADDRESS SELECTION IS RANDOM 
BETWEEN THE VALUES IN ’MINTRK’ AND *MAXTRK? . GM, TER ADDRESS 
SELECTION IS RANDOM BETWEEN ’MINCYL’ AND ’MAXCYL 


B. THE BUFFER SIZE IS RANDOM SELECTED BETWEEN 4 (10) = AND THE 
vale IN’ THE SI Ten Ih IS me TOHTES TO EN al 
T AT LEAST H donos. af bRTTE N IN i. DATA AREA OF THE LAST 
CECTOR. THIS neCeoooy 8 Rb Be PROG me ReCUTRES 4 LOCRT Aas 
IN THE DATA ION OF THE SECT SP ABLE TO MA TCH THE DATA 
TO A PATTERN FOR DATA COMPARISON PURPG SES. 


C. THE DATA WRITTEN IS ney SELECTED AMONG THE 15 STANDARD 
re KE TERS vee isa (WHEN PERFORMING A WRITE 


be READER Oat BOBO ER nd BPE ZERO FIL THE PROGRAM EXPECTS TO 


THE ORDERS ARE SELECTED RANDOMLY. WRITE CHECK DATA AND WRITE 





[rt re 
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i: HECK HEADER & DATA 98 DEBS ARE PERFORMED ONLY IF THE PREVIOU 
1$5 RDER 1. . Sa ATE DATA ORDER. IF THE ’FORMAT’ PARAMETER 
1551 IS ZERO, THE PROGRAM WILL NOT SELECT WRITE HEADER & DATA (AND 
1552 WRITE CHECK HEADER & DATA) ORDERS. WHEN THE PROGRAM SELECTS — 
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RENE 
1553 A WRITE HEADER 8 DATA ORDER, THE BUFFER SIZE IS FORCED TS 
1554 260 (10): THE PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT 
1555 WRITE OPERATION. 

iE8 E. THE FIRST ORDER PERFORMED AFTER A UNIT IS ASSIGNED WITH A 
1558 'T’ COMMAND IS NOT RANDOMLY SELECTED. THE PARAMETERS FOR 
i558 THE FIRST OPERATION ARE THE MINIMUM OR STARTING VALUES CF 
“60 THE VARIABLES. ) 

15bE 8.4 DATA PATTERNS 

1564 THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 
1565 WHEN A WRITE ORDER IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH 
1565 THE SELECT TTERN. WHEN ROM THE DISK, THE PRO 
1567 COMPARES DATA ON A SECTOR BASIS: FROM THE FIRST 4 DATA’ WORDS OF 
1568 EACH SECTOR, THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING 
1569 PATTERNS. {tO MANTAIN COMPATIABILITY WITH PACKS WRITTEN BY THE FORMAT 
i579 PROGRAM iMATNOEC=11-DERPL THE PROGRAM WILL ACCEPT ALL ZERO’S AND 
1571 AND ALL ONE’S PATTERNS: HOWEVER, ALL ZERO’S AND ALL ONE'S 

1572 PATTERNS ARE NOT WRITTEN BY THE EXERCISER PROGRAM. 

1574 PATTERN '8’ IS DEFINED AS THE "WORST CASE’ PATTERN. 

1578 PAT1 PAT2 PAT3 PATY PATS PAT& PAT? PATS 
1578 900001 177776 O00000 o00000 oS2525 007417 Oe64SS 165555 
1573 000003 177778 900000 01021 052525 007417 Oe64ss 133333 
158i aaa ED rbastad ps ines OpEses neo 151322 133333 
1582 000037 177740 177777 O42104 le5252 170360 151322 165555 
ES Bitte Ie ieee teeters Moe Gee 
1ég5 177650 Spenco BPase Bouts gseuce | {Sass3 
1586 177000 177777 104210 125252 170360 iSl32e2 165555 
1587 001777 176000 177777 114631 esebe 170360 151322 133333 
1588 777 174000 1 007417 O2645S 165555 
1589 007777 170000 1 1 esese 170360 151322 133333 
1599 017777 160000 OO00000 146314 007417 O26455 165555 
1551 037777 140000 177777 156735 ieS2S2 170360 151322 133333 
1592 077777 100000 000000 167356 OS2525 007417 O264Ss 165555 
153: 177777 000000 177777 177777 125252 170360 151322 123333 
15% PAT 9 PAT 10 PAT 11 PAT 12 PAT 13 PAT 14 PAT IS 

1597 000001 177776 172666 077777 153333 000000 

i2ee aac t 1SSPEe 129999 EERE 179999 

1600 000010 10008 iZeeee ee BE? 177777 

1601 go00e 177757 172bb6 173777 153333 177777 

t 177737 155555 175777 Obeb6? 177777 

1603 100 177677 17 176777 53333 177777 

1654 1 1SS5SS 177377 Obbb6? 177777 

1605 000400 177377 17 177577 153333 177777 

1606 1 176777 15SS5SS 177677 177777 

1607 2000 175777 172666 177737 153333 177777 

1e0e 004000 173777 1S55SS 17775 177777 
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COPYRIGHT (©) 1974, 1975 
DIGITAL EQUIPMENT CORP. 
MAYNARD, ehec 01754 


PROGRAM BY C. HESS 





THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSMAC 


PACKAGE (MAINDEC-11-D2QAC-Ae). 


OPERATIONAL SUITCH SETTINGS NNN MMAEAMERER EAE SES 


OPERATIONAL SWITCH SET 


WANIseteRteee Stee 


BIIIIF 


a 
~“ 


HKREKARAAEHAEL EEL LALA FREE ERLE ELLA AE LL RALERAAEL RARER ALLELLELELE LESS 


SWITCH USE 
15 HALT ON ERROR 
13 INAIBIT ERROR TYPEOUTS 
10 LL ON ERROR 
7 DISPLAY ALL DATA 
& DON’T CHANGE 
E PARTIAL REG 
é NO ECC CORRES 
q DO_NOT CHECK FOR MAXIMUM 
4 DO NOT I 
DISPLAY 
3 
3 
i 
0 


LELLLELELLLLLELELLLEALLLLLL LALLA LELLLLLLLELLLELAALELERALELELELAEE 


BASIC DEFINITION 


02 as hs Be as ee Bae Be Be Be Bs Fe Pe ne ae he Bw nn me es Be be Pe he ene Pane Pe Pas Pew ne Ons fs ho H- 2 h -0 b2 F-2 b> ho Ps b= B= Bo 0 ho po pe 


pasisisie tan inact aS ue ped 





REALE AL LEE LALA LLEAAELELELELALALELELL LLL RELELELALLLELELELALEREEE 


commen ERRORS 
TERS “eime 
TION RESULTS DISPLAYED IF E 
COUNTS 


OF TE 

DISPLAY SECTOR Ip Dek? Eu " UNCORRECTE 
IF DATA COMPARE ERROR & SW7 SET, DISPL 
INMIBIT 1 Dale CONPRRSION A AFTER READ ORDER 


INITIAL ADDRESS OF THE STACK POINTER ### 1100 ### 


GENERAL PURPOSE REGISTER DEFINITIONS 
PRIORITY LEVEL DEFINITIONS 

“SWITCH REGISTER” SWITCH DEFINITIONS 
DATA BIT DEFINITIONS (BITOO TO BITIS) 
BASIC “CPU” TRAP VECTOR ADDRESSES 
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139 RRERREALE RRR EL ERE LLLEL ELLA ERA ER EEE SEREREEE SE LELELELEREEELERELES 
HELLAS RARARLLARALLARERELALE LALLA LEAL LERLELALAL LEAL LE RELLELERAELE 

141 RPOY DRIVER COMMANDS 
HEEHKKEAEALALELALALALA LE LE LE LES EEE REERRAELE LALLA LEA AEELALERERELEE 
143 RERKARAKAALAAA LALA LAAE AALS RELA RERALAERER ALA LE RELA LEER ELERELEEE 
HLLLAAARAERERRLALELA LL LALA LALA LE RELALLELELALELAELALELALLLELEELLELES 


167 TRAP CATCHER 
SESE HEE EAR EEE SEE SE ESE ESE EEE SE EE SEE SEE EEE SSE EE aE 


170 ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.42,HALT™ 
SEQUENCE TO CATCH we LEGAL TRAPS AND INTERRUPTS 
LOCATION O CONTAI TO CATCH IMPROPERLY LOADED VECTORS 


JAH EHH EEE HEHEHE EEE HEE Ei 
STARTING ADDRESS(ES) 


174 

REKAEKAEALLALLAL ALE LEE LELLLELA LEAL ELLE LE LLALA RELA LE LE LE LELELELLLE 

180 RKLLEE LALA FLAALLLERELELLALELALLLLALELELELEL LE LLLLLELELEL ALLELE 
g2 RKLLLLELLALE LALLA LE EALLLAAALELLLLAELLLELLELALE RELL LE LALELLLAALEE 
1 


KLELKALLA LALA LLL LAAALALLLELALLLE LALLA LAL ELLLALE RELL LLLALLALAAAELE 


184 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 


244 RRKLLLAALLLLELLLLLE LEELA LERLLLELELALLLELELLLLE LEELA ERELALELEE 
HLFFLAALALALELELLELELALELE RELL LELELELE LELELE LALA LALELELELELELLES 

sis sen inatuceaeons cobeesnuceuseneuusenauusenunsenncnooncsouanennanss 
248 RKAAFALERALARALELE LLL LALLALE LALA LEAALALELALELLLERLALALELELE LEE 


2893 RERAALEAARAELA RELA LALA LALA LAL ERALE LALA EA ELE RELA LERLL EAL ELLE ELE 


PEP RSE aoa Honea T ITS 





1 
1843 
1844 


nn ee 
O-* 0-2 6 0 = h-—- p-+ 6 + PD pe pe 
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291 


304 


326 


393 





SE SEERA EE EEE ESE RIESE TERETE RR EE HEE EEE EE EE 
RPOY ADDRESS LIMIT VALUES 
JHE HEHEHE HEHE EHH at 


293 RELRALRERALAA RESELL ALLELE RAAALL LES ELLE LAELLLELELELERELELEL LEE 
302 RARAAAAAAALLARAALALAARLLAL EEL LLAL LEK LE LAEELELEELLLELERELALELLEE 


RERAKAKALL LALLA ALLEL ELLE REL REL ELERALLELA LALA LLL EA EELRERELERELELES 


VALUES FOR FIRST OPERATION 
JHE HEHEHE HII HEHE iH 


306 RELELAALALLELEELALAL RELA LA LE LELLLEAEL LARA LAE RAE LE RE LLL LE LLEE 
324 EKALLLALLELE LALA LERLALLLELELELELELALALELELLLELELL LA LALLA ELALEE 


ESE SESE SESE SE EEE EEE EE EE 
ERROR POINTER TABLE 
JXEEHHHHHEHHE HHH HHHHEHHIHHIIEHIIE HEISEI EEE EE 


328 ws TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
NFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(6ea ION SITEMB. oe NUMBER INDICATES WHICH ITEM IN THE TABLE I 
NOTE1: IF SITEMB IS 0 rHe ONY PERTINENT DATA_IS (SERRPC). 
NOTEe: EACH ITEM IN THE CONTAINS 4 POINTERS EXPLAINED AS 


334 EM POINTS TO THE ERROR MESSAGE 
DH ;POINTS TO THE fell, HEADER 
DT : EPOINTS TO THE 
OF ;;POINTS TO THE TA FORMAT 
331 JE HEHE EHIEIHIHHHH HEHEHE HIE EEE EEE 


AE ESE SESE SR EE EE EE EEE EEE EEE EE EE EEE 
SETUP AND INITIALIZATION ROUTINE 

SE SESE SEA EE EE A EE EE EE EEE ESE EE 

398 SE AE HE EE EE SE HE A SE HEA a HEE 


640 HRAAAALLALALAL LA AALA RAL ERA SLALA LALLA LLL RALAEAA HLA LEAALELEREATE 








reer retiree titi tit tt ttt ttt ttt ttttitttttittititttttiiti 
642 MAIN PROGRAM 
eer titer ttt ttt ttt ttt ttt titi tittitttittttittt ttt) 
os eet tite tttt ttt ttt ttt tt ttit itt ttttittitttttttitittttit ty 
BYE5 peer ttt t itt ttt titi ttt ttt titi ttt tititttttitttttttttitiitittitt 
peter ttt ttt ttt itt ttt ttt ttt itt ttt titi ttt ttt ttt 
2427 ERROR MESSAGE GENERATION ROUTINES 
HHEKELE EAH KER EERE EKER L REE AEE EEA ELE EEE EE ERE LEEK EEEEREEE EEE 
2429 eee teeter ttt ttt ttt ttt ttt ttt titi ttt ttt ttt ttt ttt ttt titi 
2789 pee ttti et titties ttt tt ttt tte t tt tt ttttttitttttttittttt tt ttt ttt 
HHLKEK KEELE ELAS ELE E EEE EEK ES EL ELLE LEAS LEE ELE SESE REESE EERE REESE 
2791 GENERAL SUPPORT SUBROUTINES 
Terrie ttt tite ttt ttt ti ttt ttt titittttttttttttitttttttti 
2793 etree ttt iret et ttt iret tit ttt t ttt ttt ttt tt ttt ttt itttttttttttt! 
3881 eee treet ities ttt tte ttt itis tt ttt ttt ttttttttitttttitttt} 


ORCL Smee aT rarest inte ht otal 


Sa f j 


BE eneoheS 


3883 NG SSL ‘a 
JHE EEE THEE EERE EEE 


3885 CALL 
. MOV #NUMADR, -(SP) FIRST ADDRESS OF ASCIZ 
JSR PC, J8SSUPRS 


3906 RALLALLELALALASLELALAAALEL LARA AALALALELALERLELAE LALLA EL AELAELE 


RELLLALELLLLLLLELLEELALLLELELELLLALELA LAL ELELALEL LALLA LE RELALELAEE 


3908 $TYPE ROUTINE 
3 9 EE EEE EEG EEE EEE EEE aE 


3910 urine. TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH AO B 
ra NE WILL i A_NUMBER OF NULL CHARACTERS AFTER A LINE 
NS THE CHARACTER TO BE USED AS THE FILLER CH 
INS THE NUMBER OF FILLER CHARACTERS REQUIRED 
INS THE CHARACTER 10" ILL AFTER. 


WOOWOO0OUOOUOWWO 
3 0 hb hd 
WONWUI£CUWMHO 


al 
NOTE? ILLS CONTA 
NOTES: ILLC CONTA 


CALL: 
1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


IE MACY11 E7(722) 27-SEP-76 15:05 PAGE 63 
;MESADR IS FIRST ADDRESS 


TYPE 
MESADR 
2) USING A JSR ENB TRUE TION 
MOV PS, -(SP) ;PUSH PROCESSOR STATUS W 
JSR PC; STYPE ;CALL TYPE ROUTINE 


ee a ee ol pt hb B&O bb 0-2 Bs He 2 + Oh Hs & ~ Hb he BB 2 Bo bo Bh sb Hh > Ho HH aH 2 He [a er od 


Sr SIS IRR EERO S OE NOON sITS 





SS ee = ee e+ - - - mee eee ee 



















a aad Ha sett 


a3 





a OB 0 bb be be Bh 0 = 0 he OH ee hb Bb he pe hh oh eh 2 hh oh a 


REGS ASSEN eee al lated sald 
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3956 


4oo4 
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MESADDR ;FIRST ADRESS OF MESSAGE 
SIS4Y RARER A RARER AAA E REE EAL A AAA EAE REESE EAE AR AEE E AREA EERER ERE 
JEBEL EEE EEE 
PRINT ROUTINE 
HEHE ISTE EEE EAR HEE SEE EERE TEESE AEE ER ESE AEE EEE HEHE EE EEE EEE 


3958 ROUTINE TO PRINT ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O 


CALL: 
1) USING A TRAP INSTRUCTION 


DISPLY ,MESADR ;MESADR IS FIRST ADDRESS OF AN A 
PRINT 
MESADR 

2) USING A JSR INSTRUCTION 
MOV PS,-(SP) ;PUSH PROCESSOR STATUS W 
JSR PC, SPRINT ;CALL_PRINT ROUTINE 
MESADDR ;FIRST ADRESS OF MESSAGE 


4002 RELLELERELLLAEKELELLLAEELELE LEE ELE LELELLLA ERA AE LLLLEEELEL ELE 


RALALALALLLLELALLLELAAALLLEEALALA LER ELLA ELEALALLLEE RELA LE SELLE LALEE 
TTY INPUT ROUTINE 
FEA ERERELA EAE RELELERLLLALELEES LAAT RELL REL ELALAEARERL AAR RALLLELLEL 


4006 § TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
=P THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR __—s- PC, STKINT 
RETURN 
4022 TK SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


4057 Tg oO a 
qaIs ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


RDCHR ; INPUT A SINGLE CHARACTER FROM T 
RETURN HERE CHARACTER IS ON THE STACK 


4072 te ge gt ar yt ot ore | ~ ce eeamaaien 
irs ROUTINE WILL INPUT A STRING FROM THE TTY 


RDLIN ; INPUT A STRING FROM THE TTY 
RETURN HERE ADDRESS OF FIRST CHARACTER WILL 
; TERMINATOR WILL BE A BYTE OF AL 
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spot TYPON ;;CALL FOR TYPEOUT 


DERPNB.P11 
1337 4134 HHKGKK KLEE ELE EKA LE EEL EELS EEE EEA EEE EE EERE EEE EEEEEELEEESE 
19993 » oe Oy 2; (para aaiaanr aria emer cement: 
2000 4136 MACRO ROUTIN 
spo) cacnhenekenonnonunnengunbecnnennnssaunenenauunuanusenenaaneneuenl 
coos 4138 eet tt tite ttt t titi ttt titi ttt itttttititttititttitttitttitiitiey 
2005 eerste eesti ttt titi sett ttt ttt t ttt titi tert ti itt tttttttittittitte | 
4140 ERROR HANDLER ROUTINE 
spor HELE KH AEH EEHEKEEE EEE E EEE EEE EEE EEE EEE EEE EEE EEE RE EEEEEEES 
20093 4142 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
2010 ave THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
2011 AND GO TO SERRTYP ON 
e0le . THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
2013 : SW1S=1 HALT 
2014 ; SWi3ei INHIBIT ERROR TYPEOUTS 
20iS . SW10=1 BELL ON ERROR 
2016 CALL 
sole ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
pl 4173 rete tet t tite t ttt t ttt ttt titi titi ttt tt titi titi ttttt ttt ttiey 
2021 rete t ttt tt titi ttt ttt ttt ttt tt ttt ttitt ttt ttttttttttttittitt 
2022 4175 ERROR MESSAGE TYPEOUT ROUT 
snes ; ett itt titi titi ttt 
e0es 4177 tt ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO pe Tene 
2026 ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” 
pt AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
SOs 4230 PERLE NLL ERS ELLERY ELSA PEEL ERE EEA EE SER EEL ES AE EEE ESERIES SHE SEES 
| 2031 HEEL EEAK ALLE KEE LEEK EEE EERE LEEK EE EEE EL EEE EERE EEE EREE EEE RERE 
2032 4232 BINARY TO OCTAL (ASCII) AND TYPE 
Spee eee tert tert t iter tert ttt ttt ttt itt ttt ttt itt ittt ttt itt 
2035 4234 THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-D:G 
2036 OCTAL (ASCII) NUMBER AND TYPE IT. 
cp RT oe anien HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 
| 2039 MoV NUM, -( SP) ;;NUMBER TO BE TYPED 
; 2040 ° TYPOS thay FOR TYPEOUT 
i 2O41 -BYT N N=1 TO & FOR NUMBER OF DIGITS 
2042 .BYT M +3 M= 1 =a 
| 2043 TYPE LEADING ZER OS. 
spice A=SUPPRESS LEACTNG ZER 
| BOMB STYPON----ENTER HERE TO TYPE OUT WITH o- SAME PARAMETERS AS THE 
| 2047 STYPOS OR STYPOC 
' 2048 CALL: 
| 2045 MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
| 


ee ee ee 
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2054 tae HERE FOR TYPEOUT OF A 16 BIT NUMBER 


52 “MOV NUM, -(SP) ;;MUMBER TO BE TYPED 
2057 TYPOC :CALL FOR TYPEOUT 
e0s3 4308 KEKE ~~ LAFSARERERELAREL AE RES REALE ALE SHEL SAA RRAKLKLELAALELEEKSLELE 
Ha KREKKKARRAAKKKKRREKRE = =x. SRERELAAAA LAER EAA LA LAES EAA LSKKAELELEE 
2062 4310 CONVERT BINARY TO DECIM+ ND TYPE ROUTINE 
ie HHREXKARARKRKLRAEAAEKRKEKZ =.  RREEERERE ERE EE ERE EE EERE EE EERE ERE EEE 
2065 4312 THIS ROUTINE IS USED TO: CHANGE A 16-BIT BINARY NUMBER TO A S-DIG 
2065 SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER 
2067 NUMBER IS POSITIVE OR NEGATIVE A SPACE OR'A MINUS SIGN WILL BE T 
2068 BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS 
2059 REPLACED WITH SPACES. 
Soot "MOV NUM, -(SP) :;PUT THE BINARY NUMBER ON THE S 
e072 ms TYPDS F 360 10 THE ROUTINE 
snee 4376 SHKAKEAE KALA ALK LAARAKELAL KE AA LAA LEHR AA LEE LELA REALL ERE KA SHEFF EEE 
gue HKKALALAK LAL L ALAA LELE LAA RESALES ELLA SALE RE RE LARA REL ERE KELALERKEEE 
20 4378 SAVE AND RESTORE RO-RS ROUTINES 
core KELEKAAEAAEL AAR LE LA RELA A LE RE RAR RELEL KSLA EARLS ERA AERA LERK LAE SEES 
2080 4380 SAVE RO-RS : 
| 2082 " SAVREG 
2083 UPON RETURN FROM SSAVREG THE STACK WILL LOCK LIKE: 
soe TOP--=(+16) 
2086 +2---(4+18) 
5088 $eo--Re 
+8---R2 
2090 +10---R2 
2091 +12---RI 
suas +14---RO 
2034 4407 RESTORE RO-RS 
% " RESREG 
| ches Quae KEK KHKA KALA ALES EAA AAA RA LES LA AAA SRE AAAS AAARAE AAAS ASEH RAALEE 
i 








a ee eee 
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SERELEAASLESAELLSFLEAA LESS SES LALESELFRGFASLSFLESSS SSL ELELFLLGLSS 


4424 RANDOM NUMBER GENERATOR ROUTINE 
SPHPERERRERREEEERERESERSSEES EEGELEREL ESE SEE LES ESE SEAL ESSE SESE SE ES 


4426 THIS ROUTINE IS A DOUBLE — PSEUDO RANDOM NUMBER GENERATS 
WITH A RANGE OF 0 TO 2(+33)- 


4428 CALL: 


JSR PC, SRAND ;;CALL THE ROUTINE 
RETURN 3 ;RETURN Oe a amie 
SHINER, SLONUM 


4469 ELLALELEFLELLEFERAELELLELALLELLELELLALLLSELELLELLLLELALLELLELSE 
ELELELFFELEELEFELAFLLALARLELELELLELEARELELALAELELELELELELELELELE LE 


4471 ROUTINE TO SIZE MEMORY 
EERELEERERERELEE ELAS LELELE REE ELAS EASES EEE RELEASES EEEEE LAER EE EEE 


4473 CALL: 
JSR PC, SSIZE 
RETURN 


SLSTAD WILL CONTAIN THE LAST AVAILASLE MEMORY LOCATION 
4497 FKEAEEKELELELELAFALELLALL LEELA LELAFLLELRERELELRSFLRL ERE LERESLELEE 
SPLSESSSSESKLFLELSLSRESASEAELEEASELLALELELELASLELSLELEELELLELKEFELE 
4499 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT R 
SHKLPHESHRERSKLASEELELRSELERSLL ARSE HEELELFELRRE RSE RKEL ESE LESELSSEEL SESE 
4501 THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
Petite (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
MOV #PNTR = (SP) ;;POINTER TO LOW WORD OF BINARY 
JSR Pc, as$DB2 
RETURN :;THE FIRST ADDRESS OF ASCIZ 
4569 SHFELSLLSSSLESSLALRELTELASERALESLSERELELEFSLERSESAESLETARELERELELE 


CD TERIA ESAs SO NON 2 corue Ooo ION EOD IA Louse 


4: 
om 


MrurururuormrurvofrurnirorrrmrorrrnrmUururrmmrururnifursrururorurinrorornorrurot 
0 hs = Fs 2 5 0s 02 b 2 § 2 8s Be fa 0 Bo Be bo Bs O-0 B0 be Bw Bn ne fo Ot hh 8 a heh =O 2 h = Be = 9 BB Be 
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rm 
cara: 
tatue-- 


rurururururunirurururururufrofrururururururururururufurufururufruronifrururufrorurp 
ry SL eh a nat a tt ae mem he eg een ie kien a a 
BIB ISR oe BS EAE 





CO6 


EREEEEEEED EEE EES EESEEEES EEE SEERESESERERE SEE EE ERES EES SEES EEEESS 


SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
SFELEPERRELERSEERE RES EER ES EEL ELSE ELLA REELS SE AEE SFLESS ALLE SES EEES ES 


4564 THIS ROUTINE WILL CONVERT A LE-BIT JNSIGNED BINARY NUMBER TO AN 
eh DECIMAL ASCIZ NUMBER. 


MOV NUMBER, -(SP)  ;;PUT BINARY NUMBER ON THE STACK 
ISR PC, JaSSB2D 7 
RE TURN *:ADDRESS OF THE IST ASCIZ CHAR. 
4578 HEDSPSEEESEF SEP FSSESERESLELSLPERES SLL ERR ESE ELE LES GES ESES SP ESSE L SS 
FEOREESEPEFEFSEBSSSEESSS ESSE LRLAGLER SER SSEF ERE PERLEBELFSRESELSES SERFS 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
SPE CEELTFEPELHLEFSRESSS SPE SHEL S FSKHSLRELSEELESHAHALFSERLAFS SRE SESS 


4582 $$ THIS ROUTINE WILL CONVERT A 3é-BIT UNSIGNED BINARY NUMBER TO AN 
hn OCTAL ASCIZ NUMBER. 


MOV #PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY 

JSR PC, as$0820 $3GALL THE 

RETURN ‘THE ADDRESS OF THE FIRST ASCIZ 
4618 ELRRELESSFS SELES KLSEFRESSELELSERSERLSREFRERSLSE ELSES SL ELL ELS LEWES 
SLHSRELHLEESHLERS LSE FLERE RE RSLELESLELSLLERSLSREESFEESELEREKRELERES 
SINGLE LENGTH BINARY TO OCTAL ASCIZ ROUTINE 
LESPLEERETETFLERSSLLELEAE LEELA LKELELELLLELELSELKEAETRE EL EFRELELLES 


4622 THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
aio OCTAL ASCIZ NUMBER. 


MOV NUMBER, -(SP) | ;;PUT BINARY NUMBER ON THE STACK 

JSR PC, 38$$820 t 

RETURN ADDRESS OF 1ST ASCIZ CHAR. IS 
4635 SEFELAERARETAFLAAAALLLLLFSLELELAATAALALALALEAAATLTLFELALLLAETLE 





ee a | ne |e ne re ee ee 


me ee rw ene 


A ee ee = ee oe ee eee © 


oe ee eee 
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gies SHSSFLAAFRELASLAESELALALALELAFARAEAELELAEFSELELLERELELAESLELALEGES 

e133 4637 TRAP DECODER 

§ 133 SFLEAARERERLESE TREE RELE LAKE LERLA SRL LALA RELAL LL LELAL LALA ELLELELSLAS 

2186 4639 THIS ROUTINE WILL PICKUP THE LOWER SYTE OF THE “TRAP™ INSTRUCTIO 
2187 AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING AODR 
2188 THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
e183 80 10 THAT ROUTINE. 

2191 LLLALLLALSAL FAA ELEAESE SLA AAALELELL SLE LAFLELAELELELAELLELELRELELLS 

e192 4656 0 TRAP TABLE 

Ht RLFLLALLELAFFLLFELELRELLELFLELLLLLELLLLFELELLELALELLLELELELELLSELE 

2195 HeS8 THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLE 
ei BY THE “TRAP” INSTRUCTION. 

it 4676 REAELERAFEALALLAELELE RELL LAALLAALELELLFELLALELSLLLELALALELELELSE 


2200 Sn ye tage ie pea tr ering ot goo te arama 
220} 4678 RH11/RPO4 DRIVER - T 

seve PACHA An err hr HLM Ft eee eee eee eee 
2204 4681 COPYRIGHT (C) 1974 

2205 DIGITAL EQUIPMENT CORP. 

2206 MAYNARD, MA 01 

ect? AUTHOR: JIM LACEY/CHUCK HESS 

at YORE «RARER RAE REEL E REE RAR ELLE ERLE E AEE LE EA SELL LEER LES EEE LEE 
2211 4688 § STORAGE FOR RHDS1, RHER1, RHER2, AND RHER3 ON AN ERROR “e™ OR “S 
cele RPERRS _ = RHDS! 

2213 RPERRS+2 = RHER] 

2cl4 RPERRS+4 = RHE 

ssip RPERRS+6 = 

£217 4699 TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 

2218 DRVACT=0 IMPLIES ORIVE IS IDLE 

2219 DRVACT>O IMPLIES DRIVE IS ACTIVE WITH A COMMAND 

eset DRVACT<O IMPLIES DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATIO 
ecce 4713 TABLE OF DRIVE STATUS INDICATORS (ORVSTA=8 BYTES) 

eee3 DRVSTA=0 IMPLIES DRIVE IS OFFLINE 

eect 12 {et ie DRIVE 12 ONL INE 

222s DRVSTA<O IMPLIES DRIVE IS UNSAFE OR NONEXISTENT 

44 4727 TABLE OF DRIVE TYPES (DRVTYP=8 WORDS) 

cece DRVTYP WILL CONTAIN THE DRIVE TYPE OF ALL ONLINE, OFFLINE 
eced SAFE DRIVES. IF A DRIVE IS NONEXISTENT ORVTYP WILL BE stro. 





NY 
8 
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e232 4740 TABLE OF DUAL PORT INITIALIZATION INDICATORS 
2233 DOPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
ae OPIN IF INITIALIZATION IS IN PROGRESS 
2236 4753 TABLE OF PENDING DUAL PORT REQUESTS 
e237 OPROS=0 1 Tee THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT 
ces DPR@S<O IMPLIES THAT A DUAL PORT REQUEST IS PENDING FOR THAT ORI 
2240 4766 § TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
ec4l THIS IS A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
ccue THE 1/0 OPERATION. 
ect 4772 SEARCH WAIT KEYS (SRCHWT=1 WORD) 
2245 THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
eed? REQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
ese EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR ORIve C. 
4780 RPOY DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 
ees} RETORVSO TPL "Br VER IS INACTIVE 
ACTORV>O I OR S 


4786 SOFTWARE TI 
ACTSTR=0 IMPLIE 
IMPLIE 


4792 UNLOAD FL 


ae 
am 
Rai 

aaa° 

% 

£ 

33 


C 
4806 § LOOK AHEAD COUNT (LACNT=8 BYTES 


3 


WORD) 
/RPOY REGISTERS WHEN THE 
DPB+14). 

REGISTERS, AS PER 


4818 SAVE REGIS 
SAVEFG 


: 
3 
: 
de 





BSEREE BRA EAus a a aati 
8 
ae 
: 
3 
‘ 


ee ee ee te ee ee 0 oe re eee 


io | eet 
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5282 
ees 


Sea oR Meee 


a8 


neiietes 
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4846 


4852 


4865 


4870 


4875 
4877 
4879 
4881 
4884 
4907 


4915 


4963 


4968 








SoA ee kee 
BrbliseN (WHERE N=0 TO 7) NPL ifs OYA TRANSFER UNDERWAY ON ORIVE 
ory NTION BITS TABLE _(ATABIT=8 BYTES) 

HIS TABLE canal THE CORRESPONDING BIT TO EACH ORIVES 
ATTENTION B 
RPOY TO RH11 “MASS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEF 
CALLING IT FATAL (MCPEMX=1 WORD) 


STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4) 
RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)} 


MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
MINIMUM DELTA DELAY IS 2 SECTORS (MNDOLTA=1 WORD) 
MAXIMUM SEARCH FOR I70 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
DEFINITIONS OF THE RH11/RPO4 ADDRESS INDEXES 
RH11/RPO4 DRIVER INI 
THIS ROUTINE Wie DETERMINE WHICH RPOY DRIVES ARE 
sg VAILABLE oon TING AND SET ite DRVSTA INDICATOR 


0 THE R STATE FOR EACH 
NOTE: THIS ROUTINE CALLS DRVINT 


JSR PC,RPINIT 
RETURN 


NOTE: THE *P’ OR °L’ CLOCK MUST BE STARTED 

Bia TE PIE SIE WERE OBIE Ka foe 
ISORE Te? ate‘ all® ON'A'#1™ “AND DEPENDING ON THEIR STATE, 
pavata IS SET TO THE PROPER CONDITION. 


MOV sORVNUM, Ri + Pr This NUMBER TO R 
yi ADDRESS OF *aH11/RPOM (RH 


RO,DRVINT 
ua.“ ROR Obed (PARITY) 
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- $032 


5096 


5143 


§330 


GO6 







— PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


RO, d#RPO4 Bro 
BRTADR — ifobRess OF SINTER G OF gin PA 
RETURNI RETURN HERE IF GUEVE IS F 
RETURNe RETURN HERE IF REGUEST IS i QU 
a ee FOR A PARTICULAR DRIV 
MOV #ORVNUM, RI ;ORIVE NUMBER TO R1 
JSR PC, OPT :SETUP A COMMAND 


COMMAND INITIATOR 
CALL 


MOV sORVNUM, R1 sDRIVE NUMBER 
MOV #DPB, Re’ :ADDRESS OF DPB 
ISR pc, ct? s¢1?= CIl a OR CI4 

:Cl= =DATA 

sCie= cH REGLESTED BY DATA xF 


LOOK AHEAD ROUTINE 
CALL 


,LA *GO CHECK THE WINDOW 
TURN : TURN 
RETURNE “START A SEARCH 
RETURNS :START A DATA TRANSFER 


INTERRUPT SERVICE ROUTINE 
TRANSFER DONE ROUTINE 
FORCED WRITE CHECK ROUTINE 
SPECIAL CONDITION ROUTINE 
RPOY TIMER ROUTINE 

CALL 


wd” SRPHPOL ASHES 


SOFTWARE TIMEOUT ROUTINE 


CALL: S70 
MOV #ORVNUM, Rl 


2PF en RO, STO 


;ORIVE NUMBER 
;CALL--DRVACT MUST BE NONZERO 































Basen 
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5764 


S806 


5850 


5e80 


5901 


$955 


5979 


5991 


5994 


6013 








2 th TO READ A RH11/RPO4 REGISTER 


JSR RO,RO.RP ;60 fg A REGISTER 

INDEX ‘REG. INDEX FROM BASE 

ERRADR : ERROR outies ERROR ST 

SAT THIS AG gree 

RETURN CONTENTS OF REG. IS ON THE STAC 
he TO WRITE A RH11/RPO4 REGISTER 

MOV DATA, -(SP) rth TO BE LOADED ON THE STACK 

i EL ER Ta 

ERRADR se 10 RETURN 0 ON AN ERRO 

RETURN Bop FREE RETURN 


2 hale TO SAVE THE RH11/RPO4 REGISTERS AS PER DPB+14 


MOV #0PBNUM, R2 :DPB POINTER TO Re 
ISR PC, SVRHI 1 :SAVE THE DRIVES REG’S 

ROUTINE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
MOV #DRVNUM, R1 ;DRIVE NUMBER TO RL 
JSR PC, SET. fe :SET “IE” 
RETURN 

QUEUE COUNT 


UT ne TO CLEAR ALL OF THE REQUEST QUEUES 
JSR PC, CLRQUE 
thd THE QUEUE SPECIFIED BY Ri 


MOV DRVNUM, R ;DRIVE NUMBER TO R1 
JSR PC, peptya 


ROUTINE TO PUT A REQUEST IN QUEUE 
CALL 


ea #ORVNUM, RL + OOORE NUMBER ocx 

35m, MOVoRVGUE —»-=$G0 PUT REaueSy IN GLELE 
RETURN] att QUEUE IS F 
RETURNe TURN HERE If REQUEST IS a QU 


COUTONE TO GET THE "OPE" MOORES OF NEXT REET IH CULE 


Rea! EN TE 
RETURN : Ro He OpRESS OF THE REQUEST 
*Res0 IF NO REQUEST IN QUELE 









ae ne ee ee ee er ee en 
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4 
am £029 ROUTINE TO “POP” THE REQUEST FROM QUEUE 

43 MOV ’ ry M, RI DRIVE ER TOR 

44 JR POPQLE :CALL TO REMOVE REGUEST 
aus RETUR :REsADDRESS OF OPB REMOVED 
anid 6046 § ROUTINES TO SAVE RO-RS AND RI-RS 
2449 


6048 CALL: SAVROS 
e451 JSR RO, SAVROS 
RETURN ;RO-RS IS ON THE STACK 


CALL: SAVRIS 
JSR 


RO, SAVRIS 
RETURN sR1-RS IS ON THE STACK 
UPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 
+12 RO . 
+10 = RI 
+06 Re 
+04 = RD 
+022 
TOP —saRS 
6074 ROUTINES TO RESTORE RO-RS AND R1-RS 
CALL:  GETROS 
JSR RO, GETROS 
RETURN sRO-RS HAVE BEEN RESTORED 
CALL:  GETRIS 
JSR _—-RO,GETRIS 
RETURN sRI-RS HAVE BEEN RESTORED 


6093 eee sete siti tit ett t ttt t ttt itt ett ttt ttt t ttt ttt t titi ttttt ttt tt | 
reset ett t testi tt ttt tt titi ttt tt ttt tt tttttttttttittttittttttt ities 

6095 DATA, CONTROL, & STATUS BLOCKS 

PPPeETTeT Tritt ttt tetttttttttttttit ttt tii iii ttt tt tt ttt ttt ttt tt 


6097 SLAALARKAAAALALLLALALALAAALAALLLAALALALARALALALELALALELALA SALES 





6826 RKALAAAAAA LALA LERALELAAELL LA LAA LL LE LALA LALEAELA LALLA LLAAALAEES 


pict cS ERER PRUE A Sc saaa aaa ita ial 
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Bap aeae 


8 


RONDE 
OnNMuUcWwue-O 





ee re ee ee ee 


poe me ee ee oe 





JO6 





REKLAAARAAALA LE RRALAARERALA LES LELLELAELL LE ERLLALEESLLLELERERERELE 
TABLES, CONSTANTS, AND VARIABLE LOCATIONS 

RELKAEREALAL AA AALARA AE LAAL SE REAE LEA E LALA RAE LLL ELAELALERELELELELLE 

£830 RELLELEERALLLL EE RELL LE RLRLLELELLLES REELLLEAELELELELALELELLLLES 
69934 RKAKAARKALKELL RELL EALLLALERELAELL ERLE REL ALELELELELERELELELALER 
RELSSAAAALLLERELLLELELALELELELLLLELEELAELELALELALELA LEELA ELELELES 

DATA PATTERNS 

HREAELAFLALELALLLELELLLAELAKLALELELELAAELELEL EAALELELELALELELLLLEL 

6998 LARAAAAALEAELERALA AERA LAAELA ELLA RELALALLALELLLELALELEEELAELLLE 
7291 HKLELLEALLLLLLALLLRELALALELELLLLERLLAAELLALLELELELE LLELALELELE 
LKLLLFLLLELLLLEAE LE ELELALAALLELALELALA LE LEAL LLE RAELL EEA LLEELELELE 
PRINTER/TELETYPE MESSAGES 
RELAALLERLELELALL LAS LALALALALESLELELALAELLLLLELELALEERELE RELL ALES 

7295 HRREKLAAA RELA LA LALLA AALARELEELLE ALLELE LALA EE RELL LEALLELEELELE 
8145 RKAALELAEAAE ERE LALA LALA LA LELALLLLA LALA ALA LALA LE RALALAERELLELEE 
ST aa ee ee 
HEELLELARALLLLELLLELALELLLELELLLLE ALE LALA LALLLLELLLELERRALLELERELE 

8149 FRERELELA LEAL REAL ARLE AALALELALELLE LL ELLE RALLERL LARA LELLERELELE 


8153 HHAAALLELEERELE KER LELLELELELE LEE AE REE RERE REEL AERA REE REL EREL ELE 





DE 


MAINDEC-11-DERPN-8 


RPNB. Pl i lige tt 
eC 5 S 
QUIPMENT COR 
5554 0 
1976. 
2530 *# 
5532 
HALT ON ERROR 

5535 1 

523g DISPLAY ALD 5 

5539 DON’T CHANGE PARAMETERS (L 

IF ERROR 
54 NO ECC CORRECTION RESULT ED I 
DO NOT DROP UNIT WHEN NORMAL 

ER 
| ER 
(2 
| ER 


001100 


MACY11 27 (732) 
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: 
- TITLE MAINDEC-11-DERPN-B 
; COPYRIGHT Nm ky 
SRA GITHL E 

MAYNARD, MASS. 01754 
{SPROGRAM BY C. HESS 


t STHIS PROGRAM WAS ASSEMBLED USING THE PDP-1i MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C2), SEPT 14, 


-SBTTL OPERATIONAL SWITCH SETTINGS 


INHIBIT ERROR TYPEOUTS 
DISPLAY ALL DATA COMPARE ERROR 
QOP ON PRESENT VALUES) 
PARTIAL REGISTER DISPLAY 
E SULTS DE dts IF ERROR 
DO NOT CHECK FOR MAXIMUM ERROR 
END OF TEST REACHED 


DISPLAY ERROR BNET of he "DCK’, "DTE’, OR 'WCF’ ERROR 
DISPLAY SECTOR IF *DCK’ ERR UNCORRECTABLE AFTER 


IF DATA COMPARE ERROR & SW7 SET, DISPLAY 
REMAINDER OF BUFFER 
INHIBIT Gn ere talon AFTER READ ORDERS 


‘SeTTL BASIC DEFINITIONS 


BE PEC RC RC DRC aR OK i CC ic oe oie ie ie oc ee i ac 


OR WWWWW Lf CUNUIO NOW 


geri, Spoees OF THE STACK POINTER ### 1100 ### 
-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IT; SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


s#MISCELLANEOUS DEFINITIONS ~ 
AT: T= 11 $3 FOR HORIZONTAL TAB 

ip $3 FOR LINE FEED 
Re 1 OR 


= FOR 
PS= 177776 $1008 FOR STATUS WORD 
-EQUIV PSPS 
STKLNTs 177774 $s TARe I LIMIT REG STER 

177772 QUEST REGISTER 

DSWR= 177570 HARDWARE ae REGISTER 
DDISP= 177570 : :HARDWARE DISPLAY REGISTER 
I 


\ eas PURPOSE REGISTER DEFINITIONS 


RO= 
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DERPNB.P BASIC DEFINITIONS 









2575 900004 Ris x ss GENERAL REGISTER 
5ec8 aun Ro= %& eatin REST aTER 
2578 000007 R7= “7 NERAC REGISTER 
2579 ocooos SP= “ + Nek POINTER 
e580 009007 PC= %? ::PROGRAM COUNTER 
2582 sxPRIORITY LEVEL DEFINITIONS 

2583 Pro= 0 


| 5 
| WoO= 
“EQUIV Su09, 
2610 "EQUIV 4 
epi “EQUIV §u07’ 
12 "EQUIV : 
2613 "EQUIV SwWOS'SWS 
2614 “EQUIV SWO4’SW4 
2615 “EQUIV SWO3’SW3 
2616 “EQUIV SwO2’ Swe 
2617 "EQUIV SWO1’SWI 
| e618 EQUIV SWOO; SWO 
| Beeo -¥DATA BIT DEFINITIONS (BITOO TO BIT1S) 
| 2bel 100000 BITIS= 100000 
a: H 
| 2624 OI BI 
| 2685 000 BI 
fee ; 
| Bebe Q 
2629 909200 BI 
| 000100 BI 
L 


MO6 
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2631 000040 BITOS= 4 
2632 000020 BITC4= 20 
2633 900010 BITO3= 10 
2634 pcooo4 BITO2= 4 
2635 9co002 BITOl= 2 
2636 000001 BITO0= 1 
2637 “EQUIV BITO9,BIT9 
2638 “EQUIV BITO8;BIT8 
2639 “EQUIV BITO7°BIT7 
E40 “EQUIV 8ITO6;BIT6 
PY "EQUIV BITOS/BITS 
264 “EQUIV BITO4;BIT4 
264 “EQUIV 8IT03;BIT3 
PEYY “EQUIV BITO2,BITe2 
2645 EQUIV BITOI‘BITI 
bus EQUIV -BITUO;BITO 
2548 BASIC "CPU" TRAP VECTOR ADDRESSES 
2649 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
2650 909010 RESVEC= 10 ; RESERVED AND ILLEGAL INSTRUCTIONS 
252 900014 TVEC= :: TRACE TRAP 
B53 090014 BPTVEC= 14 t! BREAKPOINT TRAP (BPT) 
gest gonge0 LOIVEC= 20 js INPUT/QUTPUT TRAP (I0T) *xSCOPEx# 
e558 go0039 ENTVEC= 30 ; $ENULATOR. TRAP (EMT) **ERROR## 
2658 oo0060 TKVEC= 60 ::TTY KEYBOARD VECTOR 
2659 00064 TPVEC= 64 t!TTY PRINTER VECTOR 
e660 oo0240 PIRQVEC=240 : PROGRAM INTERRUPT REQUEST VECTOR 
cbbe H 5 HERES SESE HEHE HEHE HEHE HEHEHE HEHEHE HEHE HEHEHE HEL HEE HE HEHEHE EER EEE EERE EEE EERE EERE EE ERE 
zee ss .SBTTL RPO DRIVER COMMANDS 
sore H 5 RRRRERELERA AA LEAR ALLE RAE LER LEER LE RE REL LEAL LER RLELERLE RF LRERAEE 
EES 000101 RNOP= 101 NO OPERATION 
E59 000103 UNLOAD= 103 : UNLOAD 
2670 900105 SEEK= 105 : 
2671 900107 RECAL= 107 t RECALIBRATE 
oE75 ae REL iia tPELEASENe 
2674 000115 OFFSET= 115 : OFFSET 
Sere nae BRESET= 121 READ IN PREGETE® Cone 
2677 00123 ACK= 123 :PACK ACKNOWLEDGE 
2678 000131 SEARCH= 131 : H 
2679 000141 GETREG= 141 ‘GET REGISTERS 
ef ONS sion (e EP ot om 
000151 WCKD= 151 ‘WRITE CHECK DATA 
2683 00153 WCKHDs 153 sHRIT CHECK HEADER & DATA 
te = e 
Ba ut WRTHD= tPA RTT HEADER & DATA 
2686 000171 RDDAT= 171 ‘READ DATA 





—_— 


MAINDEC-11-DERPN-8 MACY11 E7(722) 27-SEP-76 15:05 PAGE 79 







DERPNB.P11 RPOY DRIVER COMMANDS 
eee 090173 ROHD= i173 ;READ HEADER & DATA 
38 .SBTTL TRAP CATCHER 


2639 

2691 OCO050 

coe Nise LOCATIONS FROM 4 - £76 conrern A” .+2,HALT” 

+ TSFGUEN 0 CATCH ILLEGAL TRAPS AND INT T 
bad op0174 s#LOCATION, CONTAINS 9 TO CATCH IMPROPERLY LOADED VECTORS 
c 

696 000174 9009 Rieenees - WORD i OFTWARE DISPLAY REGISTER 

e637 000176 0000 SWREG: —.WORD 3 ;;SOFTWARE SWITCH REGISTER “4. 8 
e698 . SBTTL STARTING paint ee 
2699 900200 000137 COl43& @#START ;;JUMP TO STARTING ADDRESS OF PROGRAM 

e700 000204 O00i37 001436 INP See TART ;ADDRESS IS aes TO *RSTART’ BY PROGRAM 


SAFTER INITIAL STA 


— ee ee ee 


ee 





07 
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Pil COMMON TAGS 


~SSTTL CUMMON TAGS 


act 





| eros fy ERSREFASLA LASS SSELELELESRALHEA ELLA FSELELERELELLLELELEFSILEPAE LESS 
755 S#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
| !#USED IN THE PROGRAM. 
Eig 901190 .21100 
e709 902100 SCHTAG: ;;START OF COMMON TAGS 
2719 001100 ocoo00 SASS: WORD 9 ZICONTAINS PASS COUNT 
271i O01ide 900 STSTNN: .BYTE 0 ZICONTRINS THE TEST NUMBER 
e7ie 001103 900 SERFLG: :BYTE 0 :CONTRINS ERROR FLAG 
2713 OO1104 900000 SICNT: <WORD 0 s3CONTRING SUBTEST ITERATION COUNT 
271% 001106 900000 SLPADR: :WORD 0 Z;CONTAINS SCOPE LOOP ADDRESS 
2715 60:110 doocad SLPERR: -WORD 0 :CONTAINS SCOPE RETURN FOR ERRORS 
2716 OOlile 000000 SERTTL: .WORD 9 ;CONTAINS TOTAL ERRORS DETECTED 
2717 001114 900 SITEMB: :BYTE 0 :CONTAINS ITEM CONTROL BYTE 
| 2718 O01115 O01 SERMAX: .BYTE 1 :CONTAINS MAX. ERRORS PER TE 
| 28739 001116 900000 SERRPC: :HORD 0 SICONTAINS PC OF LAST ERROR INSTRUCTION 
2720 001120 900000 SGDADR: WORD 0 ::CONTAINS ADDRESS OF 'GOOD' 
2721 OOlle2 900000 S80ADR: :WORD 9 SICONTAINS ADDRESS OF *BAD’ DATA 
gree O011e4 00000 SGDDAT: :WORD 0 Z:CONTAINS *GOOD’ DATA 
2723 O01le6 SBODAT: [WORD 0 ::CONTAINS BAD’ DATA 
27e4 001130 90000 “WORD 0 i NOT TO BE USED 
| 8725 001132 000000 “WORD «0 
| 278 001134 000 BVTE ;;AUTOMATIC MODE INDICATOR 
2727 (001135 900 SINTAG: :BYTE 0 : INTERRUPT MODE INDICATOR 
| 2728 001136 900000 “WORD «0 
| 2729 O0114C 177570 : WORD DSWR ;;RDDRESS OF SWITCH REGISTER 
2730 (901142 177570 OISPLAY: .WORD ODISP Z3ADORESS OF DISPLAY REGISTER 
| 2731 OO1144 177560 §TkS: 177560 Si TTY KBD STATUS 
| 2732 OOll46 177562 STKB: 177562 ::TTY KBD BUFFER 
| «733 OllsO 177568 STPS: 177564 iiTTY PRINTER STATUS REG. ADDRESS 
2734 001152 177566 STPB: 177566 i: TTY PRINTER BUFFER REG. ADDRESS 
| 9735 001154 ~ 000 SNULL: .BYTE 0 Z:CONTAINS NULL CHARACTER FOR FILLS 
| o73%% oo11ss O02 SELLS: “BYTE @ :;CONTRINS @ OF FILLER CHARACTERS REQUIRED 
| 2737 001158 Ole SFILLC: :BYTE 12 tZINSERT FILL CHARS. AFTER A “LINE FEED™ 
| 3738 001157 —__000 STPFLG: :BYTE 0 S;"TERMINAL AVAILABLE” FLAG (B11<07>=0=YES) 
2739 01160 177607 000377 : :ASCIZ <207><377>«377> 3:CODE FOR BELL 
| p7¥o OOLIE4 : cASCIT 777 SSQUESTION MARK i: 
2741 OOl165 O15 SCRLF: ‘ASCII «15 ;; CARRIAGE RETURN . 
e742 OOl166 900012 SLF:  -ASCIZ. «12 > LINE F 
2743 ee JEHHHHHHHEHHHBHHBHEHHHHHHE HHH BBHEB HEHEHE HHHHHHEEEEEEEE 
2744 001170 176700 : «WORD 176700 sFIRST ADDRESS OF RHI1/RPOY REGISTERS 
e745 O0i17e O002s4 SRPVEC: ; :RPOY VECTOR ADDRESS 
erie OOLIZY 17264 SLKCER: -WORD 172540 ADDR OF KWL1-P STATUS REGISTER 
47 001176 17254 SLKCSB: : 172542 KWil-P COUNTER 
2748 001200 000104 SLPVEC: :WORD 104 SADDR OF KW11-P VECTOR 
erds 0120s 17746 SLKS:  :WORD 177546 SADOR OF KW11-L STATUS REGISTER 
2750 001204 000] SLLVEC: -WORD 100 3ADOR_OF KWil-L VECTOR 
2751 001206 177777 PCLOCK: : “1 :'0° IF KW1l-P IS ON SYSTEM 
2752 001210 177777 CLKFLG: :WORD -1 :'0° IF A CLOCK IS AVATLABLE 
eres OOlele 177777 SPRELG: <WORD <1 SPRINTER AVAILABILITY FLAG 
2754 O0le14 177514 SCS: :WORD 177514 SPRINTER STATUS WORD ADDRE 
e755 OOleie 177516 $LS0B: ‘WORD 177516 SPRINTER DATA BUFFER ADDRESS 
275 001220 000000 SPRTER: :WORD 0 SPRINTER ERROR FLAG 
2757 OOleee 000074 : “WORD = 74 :74 (8) IF 60 HZ SYSTEM; 62 (8) IF SO HZ SYSTEM 


SS 





f a ee ee Pe EE FD PE ee a A 


= 
bp 


SERENE 


™“ 
88888888888 


fury 


cigelgtgt 


Ronee 


ae 


a 


88 88 sEReEs 
BBR BYNNSe 


w& 
o- 
Oo 


SSopESESRSEEPSPSE DS SNERLSSSE 
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-_ 


SSCauech 


tunmr--O 
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001100 


002749 
OO0S4S5 
143300 
0000SS 


000001 
£.5)8:8)8.5 
999144 
900005 
000994 
000001 
060001 
000003 


c00001 


000001 


009001 


MACYAL E7i732) 
COMMON TAGS 
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LAI: oW 
STACKI: .WORD 
STATIN: WOR 


PACK: .WORD 
DATE:  .WORD 
OPERIC: .WORD 
ORIVE: .WORD 
TIN: WORD 
UNIT: BYTE 
EVEN 


-O0 IF LASG, 1°S IF MOD 23 OR MOD 35 TTY ON SYSTEM 
:CONSTANT USED TO CHECK STACK POINTER 
sERROR RATE DATA DISeLaY INDICATOR 


; MMAND_ IND 

;OPERATOR ENTERED DATE 

;OPERATOR ID 

;ORIVE # STORAGE: ERRORS 1-5 3 10 


;ATTN REG STORAGE: ERRORS 1-5 8 i0 
;ORIVE # STORAGE FOR PRINTOUT 


5p RERERARALELELELLSLELAALELE SEALE SRELLLALLAEAEL LLL FLELALLALES 


-SBTTL CONTROL PARAMETERS 


5p RHRARAFLERE LESS ELLA LERSAL LA LELAFEALERLLALSELELELELERELA SELLE EFEE 


ENDCON: .WORD 
“WORD 
ENDSEK: ‘WORD 
“WORD 
PASCNT: [WORD 
MAXOL: WORD 


MAXER: .WORD 
INTRVL: .WORD 
CMPLMT; .WORD 
FORMAT: . 


SAVLOD: .WORD 
RATIO: .WORD 


AUTOCK: .WORD 


NOTPRT: .WORD 


ENDET: .WORD 








; 1875x1018 WORDS (10) [3X10t9 BITS} 
:3 X 106 SEEKS (LSW) 
‘NUMBER OF PAS S TO END OF TEST 


SIZE _IN WORDS 
BY PROGRAN OEY OTL be BY OPERATOR 


ae 
: 
F 
= 


25 
eS 
; 
3 
5 


oe 
ee 


ERRORS QUT 
ALLOW WRITE HEADER & DATA ORDERS 
ul ALLOW WRITE HEADER & DATA ORDERS 


nethietiiie 
mi $8088 8 8 nm 
LOD AIFULG-C Goro 
m 
S 


a” 
R 


TER EACH WRITE ORDER. 
SELECT WRITE CHECK ORDER 


1, DO NOT PRINT DATA ERROR MESSAGES 
“ASSOCIATED WITH OPERATOR SPECIFIED 

PACK BREAS. 
iT EQ I, PRINT ERROR MESSAGES RELATING TO 


{IF E01, ENO_OF PASS DETERMINED 
;BY THE WORDS READ’ COUNT. 
;IF EQ 0, END OF PASS DETERMINED 


—— DH Oe 
“pA ADs 


EQ 
EQ 
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| DERPNS.P11 CONTROL PARAMETERS ; 
eis sBY THE SEEK COUNT. 
e816 33 RREREFLAREFLARELLLAASERELALSELAALFLSFREFELRESSSLALEEREREFLES*ALA SESS 
ei .SSTTL RPOY ADDRESS LIMIT VALUES 
e520 H 5 FAAHEREAALERAELAALELRAESLELARELLLELSELELE LA ALERA ALLEL AELAFERESLE 
2 1324 MAXCYL: .WORD 632 :MAX CYLINDER [RANGE 0 - 632 (OCTAL) 1 
5355 Bol See pees MINCYL: .WORD 0 !MINIMUM CYLINDER [ QO = (= MAXCYL} 
2824 001 000022 MAXTRK: .WORD 22 "MAX TRACK [RANGE 0 - 22 COCTAL) 1 
2825 0091332 900000 MINTRK: .WORD MIN TRACK [RANGE 0 TO <= MAXTRK] 
252 901334 999025 MAXSEC: .WORD 25 *MAX SECTOR [RANGE 0 - 25 (OCTAL)] 
gee po!336 00000 MINSEC: .WORD O “MIN SECTOR [RANGE 0 TO <= MAXSEC) 
£523 33 LHSSFAKELELELEXAALELFSRELEREAELESELALEAETELAAAERERELRALLLLLEKES 
e531 .SBTTL VALUES FOR FIRST OPERATION 
2833 a8 EXEEFLESPHLEES FEELS LFF SELRELKLLEE SRE EEF HLALEESELA LEK LAL RE LSA LES 
2835 001340 900010 BEGPAT: .WORD 10 sSTARTING PATTERN CODE [RANGE 1 - 17 (OCTAL)] 
2826 001342 Oo000s BEGCOD: .WORD § :STARTING COMMAND CODE [RANGE 0 - S) 
2237 :0 = WRITE CHECK DATA (’WCKD’) 
| 2838 ?1 = WRITE CHECK HEADER 8 DATA (’WCHKHD’) 
2839 2 = WRITE DATA (’WRTDAT’ ) 
| 2840 *3 = WRITE HEADER 8 DATA (’WRTHD’) 
| BB4I 4 = READ DATA (’RODAT’) 
eee 8,5 READ HEADER § DATA (*ROHD’ ) 
Pe43 002344 OO04C4 BEGSIZ: .WORD 404 *STARTING RECORD SIZE [RANGE 4 - MAXMEM] 
| Bei ‘NOTE: THE SIZE MUST BE AT LEAST 4 IF 
| BENS WRITE DATA OR READ DATA; THE SIZE MUST 
| BBYS :BE AT LEAST 8 IF WRITE HEADER AND 
2847 :DATA OR READ HEADER AND DATA. 
| pede IF THE SIZE IS GREATER THAN i SECTOR, THE 
| BBH8 sSIZE MUST ALLOW FOR OVERLAPPING 4 OR 
ease WORDS INTO THE LAST SECTOR USED. 





ee ee eee, 





8 


¥ 


A 


RACER Sas RAPER SR SU GRATER 


ee eS SS EE Se ES eS 
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-S8TTL ERROR POINTER TABLE 
;#THIS TABLE CONTAINS THE Ae Rn een FOR_EACH ERROR THAT CAN OCCUR. 


: #THE pare ty re, Tas OBTAINED BY USING THE INDEX NUMBER FOUND IN 
sSLOGRTION $1T Hite guneeR Ino Tcates WHICH ITEM IN THE as {s PERTINENT. 


THE ONLY PERTINENT DATA IS (SERR 
: #NOTE2: EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
+ EM ;;POINTS TO THE ERROR MESSAGE 
% OH S3POINTS 10 THE DATA HEADER 
- OT IIPOINTS TO THE DA 
1 OF ::POINTS TO THE DATA FORMAT 
346 SERRTB 
sERROR 1 
346 043712 EMI SILLEGAL RHI1 INTERRUPT 
350 00000 6 
305 G00 8 
000000 0 
ERROR 2 
355 043762 EN2 {UNEXPECTED ATTENTION DETECTED 
360 046073 OHS ZDRV_ RHA 
352 O4E512 OTe :DATA POINTER 
364 047352 OFe :DRV-DEC, REG=OCTAL 


;ERROR 3 
6 044007 EM3 ;MAS CONTROL BUS PARITY ERROR (SEEN BY THE RH11) 
046150 DH3 :DRV OF REG CONTENTS 
372 046539 DT3 ‘DATA POINTER 
374 047360 DF3 *ALL OCTAL EXCEPT DRV 
;ERROR 4 
376 O440ES EMY s CONTROL BUS PARITY ERROR (SEEN BY THE RFO4) 
400 176 DHY ; N Pes te ADDR WRITTEN READ 
402 40 DT4 AYA INTER 
404 047363 OF4 OCTAL EXCEPT DRV 
;ERROR S 
001406 044143 EMS sATTEN FROM AN OFFLINE OR UNAVAIL DRIVE 
MF D * DRV V RHA 
141 DT :DATA POINTER 
1414 :OCTAL 
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eee 
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sERROR 7 
; RESERVED 


Oooo 


5p RRREREREE EER EEEL EEE EERE REE EEE REESE REEL ERED FEARLESS EELEES EEE ES 
-SBTTL SETUP AND INITIALIZATION ROUTINE 


START ADDRESS = 200 
RESTART ADDRESS = 204 


a3 5 RRRRERALALAELE ALLELE ALARA LASALLE ELA REA ESL LE LE RLALA LESSEE AE EERE 
START: 
-SBTTL INITIALIZE THE COMMON TAGS 
CLEAR THE COMMON TAGS (SCMTAG) AREA 
MOV CMTAG, R& siEIR T LOCATION 19 CLEARED 
(Rb) LEAR MEMORY LOCAT 
#SWR, RS ;;DONE? ” 
6 ine BACK IF 
TACK, SP saad THE Fock POINTER 
Cs sENT VECTOR FOR ERROR ROUTINE 
#STRAP QSTRAPVEC’ 5 TRAP_VECTOR FOR TRAP CALLS 


C 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


SeeeeL 0 A coin SETUP FOR A SOPTHARE SWITCH REGISTER. 
MOV BedSTwEERRVEC $:8EY "UB ERROR VECTOR 
HOV BSH oo ay tEBRO-A HAROUAKE BicLAY RecISTER 
CMP §-1,0ShR 3 TRY TO nF ho eg eP Tee Bec unre 
65 Hd T ‘Sor =I 
64S: aces, (SP) ar OR TRAP’ RETURN 
eS: WSUREG SHR oy ;;POINT TO SOFTWARE SWR 
66S: (SP)+, SEtRAVEC — ERROR VECTOR 


T ee YPE THE Ties CRLF nae Fe AND MAINDEC NUMBER 
: T 
Wie SUEnTVECe2, i; 
TUp RESTART eloaity + fo" 5 


ART. 206 


en Ce OF eC ie 4 pprerey 


(RS)+ 


eseegses2 SSg5E8 y 





ne ee eee ae oe oat” he ea ene Sara ae eee 


r 
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DERN PL INITIAL 


g = 
é 


- = 
AO 


S888888888888sss 

bb > bb > hh = bs  ~ b pe p  p-e p 
NN 
S50 


SED ESISTN 


+= 


ws 


sae 





es 
103402 
es 
te 
es 
ee te 
ne 
See 


i 
+5 


Se ee ee 
es 
as 


- 
= 
¥ 


== 
-. = 
Dru 


als 
Uru 
b= = 0 Fs Gs 


gS Se PTE 
SFodz2R82 


022705 


=5-8 


See 5 


OOOO! - O0O000 Ke - OO 
— oo -— 


b+ b+ 6-2 pe 


bois spine 2 22 


ore 


ieee 


= 


042124 


Se THe Ene 


001300 
04 


001306 


07 
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ras ‘ 


CMP 


#BLKADR,RS on FOR 3 OF CLEAR AREA 


6 ;BR IF _NOT FINISHED 
HZ, SIXTEE 1/60_TH OR 1/50 TH H_SECOND COUNTER VALUE 
SIXTEE CONVERT TO 2°S COMP 
#30060, HOUR “ASCII 00’ TO HOUR COUNTER 
#30060,MINUTE  ;ASCII ‘00’ TO MINUTES COUNTER 
#30060,SECOND  ;ASC TO SECONDS COUNTER 
INTRVLS1 *CLEAR INTERVAL COUNTER 
,ENTDAT : "ENTER DATE’ 
(SP)+,RS sRERD THe a -fODRESS INTO RS 
eisbere, evo hE bat 

+ + 
(RS)+, DATE+4 S10 THe ae 
(RE)+, DATE+6 
,ENTIO s SORE TEE RAToR 1.0.’ 

"READ THE ENTRY 

(SP)+,R5 SENTRY ss 
(RS)+; OPER :STORE THE 1.0 
(R5)+;OPERTID+2 STORE THE I.D. 
(R5)+/OPERID¢4 STORE THE I.D. 


;ROUTINE TO DETERMINE BUFFER AREA SIZE 
SIZMEM: JSR 
CMP 


18: 


;SEE IF 
LKPAR: 


BLO 
JMP 
MOV 





‘nies IEEE IP ENOUGH TenORY FOR PROGRAM 


MORY 


bata ae 
ete oe ie a SELLOCATION TABLE 


: oe 
Bog arma FU BY ara E™ 


LKPAR wae IF yALUE 
#5980.,MAXDL ASSUME Tack + 1 SEC MAXIMUM 
MAXDL , BUF TBL +4 15 THAT TOO LARGE 


;BR_IF NOT 
TBL+4,MAXDL ;USE MAX AVAIL MEMORY AS MAX BUFFER SIZE 


ENTRY 
ey tS) fins ENTRY @'Y" (YES) 
ENTPAR 7BR IF A ’Y’ 

#’N, (RS) sWAS ENTRY @ °N’ (NO) 
RSTART ;BR_IF AN 'N’ 
LKPAR ;NOT A VALID RESPONSE - RETRY 





MAINDEC-11-DERPN-8 MACY 11 
DERPNB. P11 INITIALIZE 
3019 
a 
BIS BE corn 
3025 o0e184 piel? 002202 
= iil tae 
BI Bee 
of ee 
3031 O0ee0e rei 
os Ree fice 
3034 002210 005703 
Se 
4 002216 10440 era 
3039 posses bie61s 
S041 O0e23e 10440e 
ous O0e2e34 i044] 053166 
3043 002240 004737 025304 
sue O0ee44 012615 
3046 boses0 001312 
eta 002254 00101 e004! 
Be Be BO cco 
$B HES BE cone 
3083 
see 
ee Btes0e pie? rt, 00 
3058 O0e3le 005037 0012 
ei es ties bres 
| BS HBSS bee Be 
| Be eve cone 
3067 002354 101 — 
a tees fag, 
3070 oaeare 01 053204 
es sat 
3074 O00e406 137 001300 
| 
| 
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;PARAMETER ENTRY ROUTINE 


ENTPAR: TYPE SCRLF :CR-LF 
CLR ‘CrEAR OCTAL PARAMETER INDICATOR 
MOV aPARLST RY ‘ENTRY PARAMETER LIST TO R4 
1$: MOV (Ra) RY)+ 3 3$ ; ADORESS OF PARAMETER NAME 
BPL FL} BR iF Ror Decimal 0c AL SEPARATOR 
INC R3 :SET AcTAL B TER IN ICATOR 
BR 1$ *CONTINUE WITH REQUESTS 
23: TYPE TYPE THE TER 
33: WORD 0 ADDRESS OF PARAMETER NAME TEXT 
MOV (R4)+,RS “ADDRESS OF PARAMETER LOCATION 
MOV (RS), -(5P) CONTENTS OF PARAMETER LOCATION 
TST R3 :SEE IF OCTAL OR DECIMAL PARAMETER 
BNE 4g BR IF OCTAL 
TYPDS TYPE THE CURRENT VALUE OF THE PARAMETER 
TYPE DECIO TYPE DECIMAL INDICAT 
JSR PC GETDEC *GET THE DECIMAL ENTRY 
MOV (SP)+, (RS) ; MOVE VALUE TO LOCATION 
BR 18 *GET MORE PARAMETERS 
4S: TYPOC : THE VALUE 
TYPE ocTs *TYPE OCTAL INDICATOR 
JSR PC. GETOCT GET THE OCTAL PARAMTER 
MOV (SP)4, (RS) : MOVE VALUE TO PARAMETER LOCATION 
BR 1§ ‘GET PARAMETERS 
ENTPR: TST SAVLOD :SAVE THE L 9 
BNE RSTART -BR IF LOADER TO BE SAVED 
TSTB Os «41. *SEE WHO LOADED THE PROGRAM 
BNE 1§ *BR IF ’ACT’ OR ’XXOP’ 
ADD #96. BUFTBL+4  ;°ABS’ LOADER SIZE 
BR RSTAR ; CONTINUE 
1S: ADD #1026. ,BUFTBL+4 ’;*XXDP’ LOADER SIZE 
;RESTART (START FROM LOC 204) ENTERS HERE 
RSTART: MOV #STACK, SP sRESTORE STACK POINTER FOR RESTART 
CLR aaPs *CLEAR PROCESSOR STATUS 
CLR PACK >*R? OR Wl’ COMMAND INDICATOR 
MOV tig ,$L HINITIAL Ize LOW NUMBER 
MOV #176543, SHINUM INITIALIZE HIGH RANDOM NUMBER 
MOVB §-INTRVL. INTRVL4#1 ':RESTORE STATISTICS TYPEOUT INTERVAL 
BIC #170000, sMAKE SURE LIMITS ARE NOT TOO LARGE 


;CHECK THE PARAMETERS FOR VALIDITY 


Coon: ROL BUFELO ROSTER om eG 109 LAR 
che #4, MAXDL iy Fie MAX PUA TRAN TRANSFER ot9e TOO SMALL 
1S: aby $PAR1,-(SP) , RODR OF PaRRPETER Rare 
. MP 
2s: cP RAXDL , BEGSIZ i re FeCORO LENGTH THAN 1 SECTOR ? 
MOV MAXDL,BEGSIZ § ;USE MAX RECORD SIZE AS STARTING SIZE 















eee - ee 


r 





MAT C-11-DERPN-8 MACY] 
DERPNB.P11 INITIALIZE T 
aoe area 000632 
0 ties 01376 peseen 
re Pies Gi ooe7i9 
3081 002444 ArS7ag 053244 
Sse Obes) O03? O0e710 
Be ie tea 
3085 4 012746 053254 
002470 000137 002710 
Se NM Geyer Ob1s00 
3083 002504 bre74e 053264 
3090 002510 0001 002710 
il Geely Geers Donkes 
3033 pecese 012746 053274 
Be Gene joo 
3098 002550 000127 002710 
es Ques Geera? 000007 
3101 O02S64 012746 053354 
site 002570 000137 perio 
31 002S74 Oe2737 00001 
3104 paseo Ae 
3105 1 053414 
3106 10 pee 002710 
sie Gieeeg oie 
$103 Oiseee Gee737 00001 
ite eras s 
ais BS BE comm 
ate ee BE coos 
| 3B Giese goiter Oe 
Hy as re 
He es Bie oe 
| ig Ree so BP 
| He 
| 3leé 002710 012637 002722 
i138 4 | 1 053106 
| 3156 002724 i:04401 053136 
| 
| 
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001324 CKPAR: 





001326 


001330 


001332 


001334 


001336 


001314 


001340 


001342 


001342 


001342 


001342 
001342 


18: 


2s: 


3$: 


4§: 


c$: 


6$: 


73: 


;REPORT THE BAD 


27-SEP-76 15:05 PAGE 87 


CMP 


BRDPAR: ny 


T 
WO 
TYPE 


1S: 





W410. ,MAXCYL 
#PARY, -(SP) 
MAXCYL, MINCYL 
SPARS, -(SP) 
#18. , MAXTRK 
3$ 
#PAR6,-(SP) 
BADPAR 
HAXTRK,MINTRK — j 
#PAR7,-(SP) 
#21. , MAXSEC 
BPARS, ~(SP) 
BADPAR 
NAXSEC, MINSEC 
9,-(SP) 
AR 
87, RATIO 
#PARLY, -(SP) 
#15. ,BEGPAT 
#PAR18,-(SP) 
BADPAR 


PARAMETER 


(SP)4,1$ 
,NGPAR 


0 
»REPAR 





3 ext fl Semen ADDR TOO LARGE 
Dei 
MAX CYLINDER LARGER THAN MIN CYLINDER 


tRDOR oF OPARAMET ER 
REPORT PARAMETER ERR 


i REPORT PARAMETER ERROR 

tBR TF NO SECTOR ADDRESS TOO LARGE 
SS OF PARAMETER NAME 

REPORT PARAMETER 

BEE IF RS R/W RATIO TOO LARGE 

; ADDRESS he PARAMETER NAME 

REPORT PARAMETER ERROR 


;SEE IF VALID PATTERN SELECTED 
:BR IF PATTERN CODE VALID 


; ADDRESS OF PARAMETER NAME Sp 
*REPORT PARAMETER ERROR ‘i 
ils STARTING CODE OK 


ils yg ING CODE OK ? 
iis TARTING CODE OK ? 


ae CODE OK ? 
TARTING CODE WRITE HEADER & DATA ? 


RES 
REPORT PARAMETER ERROR 


;MOVE PARAMETER NAME 
;’BAD PARAMETER’ 


;PARAMETER NAME 
; REENTER PARAMETERS 
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1 27 05037 001305 CLRB  =—sINTRVL#1 CLEAR PERFORMANCE TYPEOUT INTERVAL COUNTER 
HE prseay 0137 02152 IMP ENTPAR GO THROUGH PARAMETER ENTRY ROUTINE AGAIN 
3134 ;DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 
3135 : PROGRAM WILL USE 
313 002740 904737 Oe0212 SETVEC: JSR PC, CKPTR SEE IF PRINTER ON SYSTEM 
3138 000744 013737 001170 030714 MOV SRPADR,RPADR § ;RPOY ADDRESS 
3139 b02752 013737 001172 030716 MOV SRPVEC;RPVEC  :RPOY VECTOR ADDRESS 
3140 002760 004737 020260 JSR PC, CKCLK ‘SEE IF CLOCK ON SYSTEM 
SU ae en re mae ee 
stds 002776 S539 000007 01263 BICB. #7, UNIT#1 :CLEAR UNIT NUMB 
3144 003004 O0S5004 CLR RY : DRIVE TABLE POINTER 
aiN6 12703 000010 MOV #8. ,R ; ITERAT ION COUNTER 

1468 O030le 104401 001165 TYPE $C “LF 
3147 003016 104401 051527 TYPE ;SYSTAT : TYPE STATUS HEADING 
3148 00302¢ 1¥4OL 001262 1S: TYPE {UNIT ; TYPE UNIT NUMBER 
3143 003026 104401 951362 TYPE LINYSP : SPACE 
3121 posse foides Tre GRVSTACRN) = EE EAT Date’ STATUS IS 
3152 003040 100410 BMI 3 *BR IF UNSAFE OR NONEXISTANT 
3153 003042 012737 OS140S 003144 MOV #UNTON, 8S > MESSAGE ADDRESS - 
size DOSES era? 051374 003144 2 Sav Hy TOFF spRINt JT SAGE 
step 003060 nite . 7 : BR it = SEL ING MES oases 
3157 003062 006304 38: ASL RY ‘SETUP TO ADDRESS WORDS 
3158 003064 4 030566 TST DRVTYP(RY) :SEE IF UNIT PRESENT 
3153 903070 at ty BEQ 4§ *BR IF NOT PRESEN 
3160 003072 Oee764 020020 030566 chp #20020, DRVTYPCRH) 5 SEE IF SINLE PORT RPO4 
3162 iste 022764 024020 030566 CMP #24020,DRVTYP(R4) ;SEE IF DUAL PORT RPOY 
3163 003110 90 410 BEQ c$ ;BR IF IT IS 
3164 003112 1 051465 003144 MOV BNOTRP, BS sUNTT_ 8 NOT AN RPOY 
ibe 9031 ieee 051502 003144 4S: MOV SNOTPRS, 8S sUNIT NOT PRESENT 
te oat 500793 051517 003144 SS: MOV SNOTSAF , 8S SINTT UNSAFE 
3169 003140 006204 6S: RY RESTORE RY 
3170 003142 104401 7: TYPE ' i TYPE TH THE IDENTIFYING MESSAGE 
3134 003146 rer 001165 . TYPE SCRLF a Se 
3173 00315 005303 DEC RS sDECREMENT THE ITERATION COUNTER 
ote sett ten 001263 NCB sUNIT#1. HINCRENENT THE HE UNIT NUMBER 
iis tb ar ef age ee Man 
te oosi7e : 397 pon AEP ™ Tere Be STINT aa 12 THE KEYBOARD pNTERRUPT HANDLER 

1 176 104401 YPE IATOON YPE *INITIALIZE C 
3181 003202 000137 003206 IMP MAIN “START THE PROGRAM . 
st a8 ceeseinrnstaicpneenienieessigiiemniebsuiitebisienssiaempen 
sie .SBTTL MAIN PROGRAM 
2186 








07 
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PROGRAM 
ai $3 RRRLLEK ASKS HEA HELA LRA AE SELE LEAL REE ELA LLLEAERERLL EASE KELEKERLF LE 
3183 003208 023706 001226 MAIN: CHP aUSTACK! , SP sCHECK ST STACK POINTER 
3131 14 HALT } SS ESnESPORNES 
132 1 05/37 001230 ist STATIN : TYPE ERROR RATE STATISTICS ? 
94 2 TIN 
sige Dosssa se38 SRBC STATPR Tyee THe statistics 
31968 003234 012703 O00010 MOV #8: R3 UNT 
3197 603240 bie70S 041650 MOV sOUNIT, RS as i SOROP UNIT’ TABLE 
$198 goose 005715 1S: TST RS) ise IF ENTRY AT opBESeNT POSITION 
3200 993250 Dbe705 000002 2s: AD #2,RS Thicke iN 0 NEXT TABLE POSITION 
I 00530 DE R i DECRE ENT UNIT COUNTER 
sos Oase69 Aaa gre HAIN ‘PINISHED OF FERE CHER TO ASSIGN UNITS 
sche posses pees; t7t4 e- Ue CC Oe sROORESS PF ea RUA = 
3206 003270 001405 : BEQ o$ *BR IF AT END: GO CHECK ’WAIT’ TABLE 
$207 go327e 21115 CHP RL), (RS) : He UNIT IN "AVAIL? THE ONE TO BE DROPPED 
Sn goal GERAD ly” THLE ones 
3211 003304 012701 041736 S$: MOV WAIT, RI *MOVE THE ADDRESS OF THE BUFFER WAIT TABLE 
3515 Dossis Boise coe a Deeg 'BR OIF-YES. SEE TE ANY MORE. DROP” REQUESTS 
3214 002314 21115 CMP (R1), (RS) UNIT IN THE "WAIT 
3215 903316 001403 BEQ 7 *BR IF IT IS 
3216 Bosse8 062701 ococode ADD #2,R1 INCREMENT "WAIT? TABLE ADDRESS 
By mee titi rs: fv hye HeUP eS RU linet wd 
3219 104401 oS52015 TYPE DEASSG TYPE ’UNIT DEASSI 
320 003338 O04732 021176 ISR PC. TYPEST “TYPE THE UNIT’S ERROR RATE DAT 
3553 Bosaue GOSoIT tk CRS REE THe GRGT. FROM THE TAVETL® OR "WAIT? TABLE 
3 003344 004737 015322 JSR PC, CMPRES :CO oo tHe hespeeT TIVE TABLE 
204 003350 737 } > SEE MORE UN 
3226 ;LOOK FOR DRIVES TO BE ASSIGNED 
so 003352 012703 000010 MAINI: MOV #8. ,R3 :UNIT COUNT 
3229 002356 o0S002 CLR Re "AVAIL? INDEX 
ey pbaaee pheno Roe IR GNIT TNOEO 
3232 003364 005766 041672 1$: TST NEWUNT (RS) iNEW UN J IN THIS POSITION 
3234 eee 062705 2s: ADD #2,R5 SONCREMENT RS 
3235 dose04 INC Rd phe MENT | INDEX 
5% 001370 BNE 1$ BR IF BORE UNITS 
3238 O03404 here ic BR HAIN wh : START OPERATIONS FOR THE AVAILABLE UNITS 
$8 14 1254 Obl 2bs , Bis RY’ UNI T+] Bec BN CRUBGER - 
3e41 003420 104401 05136 TYPE , UNTMSG 
2242 OCOIME4 10440] 001262 TYPE UNIT SUNTT TNUMBER 
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DERPNB.P MAIN PRO 
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CREAR 


sncesasenks 
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GRAM 


041714 SS: 


041640 
ea 
0012 
030 
000002 
000034 


000020 
000004 


oood26 
000030 
000026 
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ASGND 
AvAIL (R2) 
#2,R2 
4 
NEWUNT 
AVAIL (Re) 
MINTRK? Sra 
MINCYL, $CYL( 


BEGCOD, Ri . it Ne 
COMTBLER1), SCOMND(RO 
BEGPAT, SPATTC( ERN CODE 
CODE TO A TABLE INDEX 
RECORD SIZE 


SPATTCIRO) 


R ;C 
BEGS1Z, SWROL (RO) 
Po epee’ 


ssseccno) | 


toeee 
#1, SCODECR 
#4, SSSEC(RO) 
#2) Re 


2s" 


WAIT 
MAINS 
AVAIL 
IDLE 
AVAIL, RO 
SNEXTtRO) 
SPACK (RO) 
PC, WRTPK 


C, GETBUF 
GaP)+, SEU CRO) | 


PC, FILBUF 
PC, GODRIV 








NED’ 
tat END OF AVAILABLE TABLE 
;OR IF YES 
INCREMENT AVAILABLE Te poe 


CON bhai LOOKING FOR Lin ir 
; ADDR OF UNIL 


TABLE 
NEWUNT (RS), avAILtRe) IgT0 AVAIL LST 


a ry ial cist HATOR 
ONE oe OF BLOCK IN RO 


#-1 REN Higo 


OR DATA TRANSFER 
E IT INTO 2’S COMPLEMENT 
pI TAA, ie OF SECTOR SIZE 


38 F NOT 

;ADD HEADER SIZE TO SECTOR SIZE 

; INCREMENT AVAILABLE TABLE POINTER 
;LOOK FOR MORE UNITS 


;GET PARAMETERS, BUFFER SPACE, pa START ORDERS FOR DRIVES IN 
THE "AVAILABLE’ QUEUE’ 


s OUTSTANDING BUFFER REQUESTS 
“ANY UNITS WAITING FOR PARAMETERS 


BRANCH I 
; CONTROL BLOCK ADDR IN RO 
; PARAMETERS Been SELECTED ? 


HEY 
Re se COMMAND FOR THE ORIVE ? 
:GET DATA fe 


t ADDRES SS_OF THE PARAMETER QUEUE 
UNIT IN THE QUEUE 


HE TABLE 
;SELECT. THE ees AL 
i MAKE oom THE STACK FOR THE BUFFER ADDR 
stn ER ADDR TO DPB 
ft F_*0’ ADDR (NO BUFFER) 
;PUT CURRENT DPB IN DRIVER 





ull 
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003742 705 O41616 MOV BORDER, RS sADORESS OF ORDER QUEUE IN RS 
3533 neat pies oe TST REDS EN D OF QUEUE ? 
3301 003750 001376 BNE .-2 NOT 
003756 010045 MOV RO, -(RS) ;PUT BLOCK AQDRESS INTO QUEUE 
754 1 0c0031 TSTB = $PACK(RO) :’R? OR MMAND FOR DRIVE ? 
3304 003760 001005 BNE 10$ BR IF ETHER. 
3305 003762 912705 041760 MOV BPARG, RS PUT BLOCK INTO THE PARAMETER QUEUE 
Be hare tire me Pare hereto oe Ge 
i ; 

Gisere SIO |g, FO RS acne), Pu LOGE Roofs Info Te cveue 
3393 004000 oie 3 piegs3 JSR PC CHPRES COM nPpoee THE "aval a BE PPR BELE 
3311 004004 000706 BR t CONTINUE P 
3312 004 905005 S$: CLR :RS USED AS. QS WAIT’ POINTER 
3313 004010 o00240 NOP ‘DEBUGGING AID 
3314 OO040le 005765 041736 TST WAITCRS) :AT END OF T 
3315 004016 001403 BEQ 6$ :B vES 
3316 004020 062705 oD0002 ADD #2,R5 ; INCREMEN 
3317 004024 000770 BR *CONTINUE SEARCHING 
2318 O04026 013765 041714 041736 65: MOV AVAIL,WAIT(RS) MOVE ENTRY FROM AVAILABLE TO WAIT 
3319 004034 012701 941714 MOV #AVAIL, RI *TABLE TO C S 
3320 O04040 004737 015322 JSR PC, CMPRES “COMPRESS THE INDICATED TABLE 
$321 004044 000137 Oo41S0 IMP TbUE :WAIT FOR A UNIT TO BECOME READY 
3323 GET BUFFER ASSIGNMENTS FOR DRIVES INT THE "BUFFER WAIT’ QUEUE 
335 004050 013700 041736 MAIN3: MOV WAIT, RO sMOVE THE "WAIT’ ENTRY TO RO 
3326 CLR -(5P} *MAKE_ROOM_ON THE STACK FOR THE BUFFER ADDR 

013504 ISR PC, GETBUF ?TRY TO GET A BUFF 

3328 OO4062 012660 000006 MOV (SP)+, SBUF (RO) s MOVE THE BUFFER ADDR TO THE OPB 
3329 OO4066 001002 BNE 1$ -BR IF A BUFFER WAS ASSIGNED 
3330 004070 000137 004150 JMP IDLE NO BUFFER AVAI 
3331 004074 004737 014072 1$: JSR PC, FILBUF ‘FILL THE BUFFER 
3332 004100 004737 014340 J5R PC’ GODRIV *PUT THE ENTRY IN THE DRIVER 
3333 OO4104 012705 O41616 MOV #ORDERQ, RS ADDRESS OF ORDER QUEUE IN RS 
3334 oo4i1g 005 TST (RS)+ ;AT OF THE QUEUE 

ll2 0013 BNE .- :BR 
3336 004114 010045 MOV RO. -(RS) PUT BLOCK ADDRESS IN QUEUE 
3337 004118 ics 900031 TSTB  $PACK(RO) -’R’ OR *W’ COMMAND FOR DRIVE ? 

1 1 BNE $ iBR I IF YES DON’T PUT BLOCK INTO *PARQ’ 
3339 004124 012705 041760 MOV #PARQ,RS *FIND THE END OF THE PARAMETER QUEUE 
3340 004130 095725 23: TST (RS)+ OPEN oer IN the QUEUE ? 
3341 004132 001376 BNE 2s *BR IF NO 
3342 O04 34 010045 MOV RO, -(RS) :PUT BLOCK ADDRESS INTO THE QUEUE 
3343 004136 012701 041736 38: MOV #WAIT, RI ADDRESS OF TABLE 10 TO COMPRESS 
3344 004142 004737 015322 JSR PC, CMPRES ; COMPRESS THE WAIT TABLE 
a3H6 004146 O000625 BR mAtNe "LOOK FOR MORE ENTRIES 
$47 ;WAIT FOR AN ORDER TO FINISH 
3349 004150 023706 001226 IDLE: CMP BESTACKI , SP 5 CHECK K STACK POINTER 
3350 poui64 001401 BEQ 
3351 156 HALT Stack cOreteh NOT L100 4exxeeeRRHEEEEES 
3352 OO4160 012701 oO41616 MOV HORDER Rl *ADDRESS OF THE ORDER 7QuEU UE IN RL 
3353 004164 012100 1S: MOV (R1)+,RO *PUT BLOCK ADDRES S INT 
3354 O04166 001432 BEQ IDLE1’ BR IF END OF QUEUE 
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3355 904170 005760 oon016 TST STATUS(RO) E IF UNIT FIN 
338 rath 77 BEQ 1$ f eu nar AEP RNTSHED 
Sseg pone OIDIME ROY ORT etSP) EAE THE. QU SGLELE BOIATER 
$353 apie Se 013350 13k PC’ STATIS Pang eyarisrics. FOR UNIT IN RO 
3361 OO42l2 904737 OO446D JSR PC, PROCES PROCESS "E°9,OF op 
3362 O04216 005037 O16416 CLR PRt2B 2C TROBE ERROR INDICATOR 
3363 OO4222 004737 023704 JSR PC, ABNRML i SEE a ANY UNITS HAVE TOO MANY ERRORS 
3364 O04226 004737 023726 JSR PC? NRML ;SEE IF ANY UNIT HAS XFERED 3X10t9 BITS 
3365 OO04232 012601 MOV (SP)+, Rl *RES ORE THE ORDER TABLE INDEX 
3366 004234 012705 041714 MOV #AVAIL,RS ;EIND THE END OF THE "AVAILABLE’ TABLE 
3367 004240 005725 23: TST (RS)+ "END OF THE TABLE ? 
3368 OO04242 001276 BNE 3 sBR if NOT AT END OF LIST 
3369 004244 011145 MOV (R1), -(RS) : MOV HE BLOCK ROORESS INTO THE TABLE 
3370 OO4246 004737 015322 JSR PC, CHPRES  ONPRESS HE ORDER QUEUE 
3371 O042S52 004737 013644 ISR PC’ RELBUF RESTORE BUFFER 
3372 004256 005737 041760 IDLE1: TST PARQ ‘ENTRY IN THE PARAMETER QUEUE ? 
3373 O04262 001410 BEQ 1$ ;BR IF NOT 
3374 O04264 013700 041760 MOV PARQ, RO “PUT THE BLOCK ADDRESS INTO RO 
3375 004270 737 O14416 JSR PC, SELPAR GET THE PARAMET ERS FOR NEXT OPERATION 
3378 004274 012701 041760 MOV #PARQ.R1 :SETUP TO COMPRESS THE TABLE 
004300 737 015322 JSR PC, CMPRES >COMPRESS THE PARAMETER QUEUE 
3378 004304 000127 003206 1S: JMP MAIN ‘CONTINUE THE LOOP 
$380 ;SETUP TO REFORMAT AN ERROR SECTOR 
3382 004310 032737 O00001 OOD114O0 REFMT: BIT #SHO, SWR sREAD ONLY SWITCH SET ? 
3383 904316 001057 BNE REFMTX 
3384 004320 032737 o00200 001140 BIT #Sl7, SWR sSHTTCH ? SET ? 
3385 004326 O01 BNE REFMTX RAE IT 
3386 004330 001310 TST FORIAT SRT E header & DATA ORDERS ALLOWED ? 
3387 004334 001450 BEG REFMT 
3388 004336 016060 o00222 000106 MOV SRHCCCROD, sie oki jUSE PRESENT CYLINDER 
3389 004344 CLR (SP) sC aR ST 
3390 004346 005046 CLR -(5P) *FOR SECT On TRACK 
3391 004350 004737 oO20124 JSR PC READDR GET CORRECTED SECTOR-TRACK ADDRESSES 
$335 Spsseo 11c660 a NOV (Bos aNSECLRDD se BRR $0 OP 
3344 POSES ea eee 000110 MOV #260.'$ (RO)’ ;WORD COUNT FOR FORMAT 
9S 004372 023727 001390 o0040 CMP MAXDL, #260. sCAN A FULL agecTOR BE WRITTEN ? 
9 oo4400 1 BHIS 1 *BR IF I 
334g in 1 Ot oe Aang Sobtoe 1$ HOVE 5 at pay ches Meat SER Bee BS re 
| 3399 poate bigs seen PC; GETPA GET A PA 
004422 110560 103 MOVB RS, SNPATC(RO) i PATTERN CODE TO CONTROL BLOCK 
Se Goris Glee? dacrea UE BBY baa Br GPP i bcbee nie Petree Leu 
40 005711 es: TST (RL) ee Wo Ae Lore 
3404 oo4442 001405 BEQ REFMTX 
3405 OO4444 O20021 CMP RO, (R1)+ Se, rr BLOCK AT PRESENT POSITION 
3406 OO4446 O01 BNE 2 
3407 OO44SO0 005041 CLR -(R1) *CLEAR NRE ENT 
3408 OO44S2 004737 O1532e2 JSR *COMPRESS THE RNBLE 
3409 OO44S6 REFMTX: RTS * RETURN 





















27-SEP-76 15:05 PAGE 92 





cr ee ee ne meme et ee 





MAINDEC-11-DERPN-8 MACYL1 
DERPNS.Fl1 MRIN PROGRAM 
zi 
S413 d04460 ! Oocoié 
aii3 4% 10042 
1s 760 100000 
aii8 lg 001410 o4 
7 oc00 
3418 Beacos 001017 
Be RR Bg ow 
Sui] Soveie SBN7a? 10474 
e422 O04Se2e 004737 010574 
st23 004525 oo00c4 
424 004534 0010 
S425 04536 7 010660 
st2é O0454e 
3427 
3428 
i; ses 
3430 OO4544 032760 000200 
3431 004552 001402 
135 OO4SS4 000137 O0S20e2 
34 
a4 
i; 3435 
ee ee oe 
9938 904572 010000 
| 3433 904600 001025 
| Nad 004000 
| 3441 004610 001 
| 3442 OO0%sle 032760 002000 
/ 3443 O04620 001054 
3444 O04622 0327609 001000 
i 3445 GO4630 001072 
; S446 O04632 032760 040000 
S447 QOO464O 001107 
2448 OO464e 032760 000004 
3449 OO4ESO0 001135 
aie O046S2 000207 
| } 
| 452 
i 453 
/ 3454 OO4%654 104401 O01165 
. @455 OO4660 104401 044300 
/ 9456 Of4664 104401 052040 
i 3457 OO4670 104401 ees 
' 3458 OO4674 ie 0011 
/ 3459 004700 O04 016002 
| 3460 004704 104412 044300 
' 9461 004710 004737 O16046 
_ 3462 004714 ere edt 
BG Bursa Dossay | Ge See 
3465 004730 004737 017622 
S466 004724 000137 Oe3tee 


a 8 me re 
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:PROCESS [HE ORDER TERMINATION 
PROCES: TST $TATUS(RO) -SEE IF DRIVER SIGNALED AN ERROR 
Ee ERPROC °BR IF ERROR 
oco1s4 81 SBITIS,SRHCS1(ROS ;SEE IF ‘SC’ SET 
BEQ 1 -BR'IF NOT SET 
ooc164 SIT SSITI4,SRHCSI(RO) ;SEE IF "TRE’ SET 
BNE ERPROC . 
000176 SIT SSIT14,SRHOSI(RO) ;SEE IF ‘ERR’ SET 
BNE ERPROC SRIF SET 
18: ISR PC, CKERR "NO ERROR, CHECK ERROR BITS ANYWAY 
JSR PC’ CKBUS *NO ERROR. CHECK BUS ADDR & WC 
001140 SIT esud2, S ‘NORMAL DATA COMPARE ? 
BNE Fi eee :BR IF NOT 
ISR PC, CMPAR "NO ERROR, COMPARE DATA 
23: RTS PC RETURN 
:ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 
COCO1E ERPROC: BIT 881707,STATUS(RO) :DONE BIT SET ? 
BEO ERPRC -BR IF ORDER DIDN’T COMPLETE NORMALLY 
“PROCESS ERROR WITH ‘DONE’ BIT SET 
sPROCESS ORDER COMPLETION WITH 'ERROR’ & "DCNE NOT’ BITS 
001263 ERPRC1: SICB 87,UNIT+1 ;CLEAR OLD UNIT NUMBER 
BISB (RO), UNIT+1 -SET PRESENT UNIT NUMBER 
000016 eit s81Tl2, §TATUS(ROS jSEE sf DRIVE WAS UNSAFE 
000016 BIT SBITI1,STATUS(ROS :PARITY ERROR OCCURRED 
BNE UCP: -BR IF IT DID 
000016 BIT 8BIT10,STATUS(RO) ;FATAL PARITY ERROR? 
BNE -BR IF THERE IS ONE 
000016 Bit #81709, STATUS(ROS ; TIMEOUT? 
000016 BIT S8IT14,STATUS(ROS ;UNIT WENT OFFLINE ? 
BNE OFLIN ; D1 
000016 BIT 8BIT2,STATUS(RO)” :PORT REQUEST TIME OUT ” 
BNE PRTIN sBR IF IT DID 
RTS PC ?ERROR. RETURN 
sDRIVE IS PERSISTENTLY UNSAFE 
PUNSAF: TYPE  ,SCRLF CRLF 
TYPE  \EMle : DRIVE UNSAFE’ MESSAGE 
TYPE | DRNUM *DRIVE NUMBER 
TYPE {UNIT :TYPE THE DRIVE NUMBER 
TYPE SCRLF *CR-LF 
JSR PC, LINEL “PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EMI : PERSISTENT evi UNSAFE MESSAGE 
JSR PC LINES *PRINT LINE RROR MESSAGE 
JSR PC;LINES “PRINT LINE 3 OF ERROR ME 
JSR C;LINEY * PRINT ne ane 4 OF THE MESSAGE 
JSR PC; INCTOT j INCRE NT TOTAL ERROR COUNT 
JSR LINE? *PRINT LINE 7 OF ERROR MESSAGE 
IMP bp ‘DROP THE UNIT 
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3467 ; 
sos sUNCORRECTABLE MASSBUS PARITY ERROR OCCURED 
3120 o04740 104401 O01165 UCPAR: TYPE  ,$CRLF :CR-LF 

71 004744 104401 044202 TYPE EMIO : "UNCORRECTABLE PARITY ERROR’ MESSAGE 
sive 004750 GOO4O4 on FALPRI sFINISH PROCESSING THE ERRCS 
a7 s*FATAL’ MASSBUS PARITY ERROR OCCURED 
S475 OO4752 16440: 001165 FALPAR: TYPE ,S$CRLF sCR-LF 
3477 904756 104401 O44245 YPE  ‘EMII : "FATAL PARITY ERROR’ MESSAGE 
3478 OO4762e 104401 052040 FALPRI: TYPE  DRNUM : R 
3478 004765 104401 00126 vw. ‘TYPE THE DRIVE NUMBER 
3480 004772 10440] OO1IES TYPE SCRLF :CR- 
3481 004776 004737 021356 ISR PC INCTOT ‘INCREMENT TOTAL ERROR COUNT 
3482 005002 032737 100000 001140 BIT S15, SWR ‘HALT ON ERROR ? 
3483 0050106 001401 BEQ +4 BR IF NOT 
3484 905012 HALT ‘ERROR HALT 
ses 995014 900207 RTS PC 
sie ;SOFTWARE TIMEOUT OCCURED 
3489 005016 004737 O16002 SWTIM: JSR PC, LINE! ;PRINT LINE 1 OF ERROR MESSAGE 
3490 005022 104412 044331 DISPLY .EMI3 *PRINT THE TIME OUT MESSAGE 
3491 005026 004737 O16045 ISR PC, LINE? ‘PRINT LINE 2 OF ERROR MESSAGE 
3482 905032 004737 016420 J5R PC’ LINES *PRINT LINE 3 OF ERROR MESSAGE 
3493 005036 004737 017156 JSR PC’LINEY ‘PRINT LINE 4 OF ERROR MESSAGE 
3494 05042 Dou? 37 021356 JSR GC; INCTOT + RENENT TOTAL ERROR COUNT 
3495 905046 017622 JSR "LINE? :PRINT LINE 7 OF ERROR MESSAGE 
349% 005052 900240 NOP 
3497 005054 000240 NOP 
a1 905056 000207 RTS PC s RETURN 
3500 sDRIVE WENT OFFLINE 
3502 OOS060 104401 001165 OFLIN: TYPE  ,SCRLF sCR-LF 
3503 005064 104401 44403 TYPE ‘EMILY "DRIVE WENT OFFLINE’ MESSAGE 
2504 005970 104401 OS2040 TYPE * DRIVE R 
3595 005074 104401 OOl262 TYPE ‘UNIT *TYPE THE DRIVE NUMBER 
3506 905100 104401 OO1i6S TYPE SCRLF CR-LF 
3507 005104 004737 O16002 JSR PC, LINEL “PRINT LINE 1 OF THE ERROR MESSAGE 
3508 005110 104412 O44403 DISPLY ,EMI4 PRINT OFFLINE MESSAGE 
3509 005114 O04 16046 ISR PC, LINE2 *PRINT LINE 2 OF THE ERROR MESSAGE 
3519 005120 O04 1g420 J5R PC; LINES ;PRINT LINE 3 OF THE ERROR MESSAGE 
3511 005124 004 17156 JSR PC; LINEY ‘PRINT LINE 4 OF THE ERROR MESSAGE 
3512 005130 004737 021356 ISR PC, INCTOT INCREMENT TOTAL ERROR COUNT 
3513 005134 737 017622 JSR PC’ LINE? “PRINT LINE 7 OF THE ERROR MESSAGE 
214 005140 000137 Cz3b22 IMP DROP : T IT 
ie ;PORT REQUEST TIMEOUT ERROR 
3518 005144 004737 O16002 PRTIM: JSR PC, LINE] sTYPE LINE 1 OF THE ERROR MESSAGE 
3519 gos 150 le 0444, DISPLY .EAI ?PRINT PORT TIME OUT ME 
3520 1 737? ‘Ol ISR PC LINES *TYPE LINE 2 OF THE ERROR MESSAGE 
2521 O05160 004737 016420 JSR PC; LINES *TYPE LINE 3 OF THE ERROR MESSAGE 
2522 905164 004737 017156 JSR PC; LINEY : LINE 4 OF THE ERROR MESSAGE 
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MRIN PROGRAM 
3823 005170 04737 pel 2se ISR PC, INCTOT BU TOTAL_E®ROR COUNT 
3Se4 905174 O04737 Oi7éee JS& PC, LINE? LINE 7 OF THE ERROR MESSAGE 
2 005200 000207 RTS PC RET ER 
3Se? _3PROCESS ORDER COMPLETION WITH "ERROR’ & ‘DONE’ BITS SET 


3529 poeete 932760 000030 000016 DONE: Bt aT OUST TES, ara TP NOT OCCURRED 


5 
8 
8 


3531 005212 000137 010230 IMP UNSAF REPORT UNSAFE 
#532 bose16 932750 0000 000174 Bir aBiTiy, » SRHCSECROS 18 nace SET ? 
3534 005226 900137 006146 IMP WCKER “REPORT "WCE’ 
3335 gose3e Oe 040000 000176 BIT hep »SRHOSL (RO) jCHECK ERR’ 
3537 O0Se4e 000137 007774 IMP TRFER PROCESS ‘TRE’ 
3538 005246 032760 000020 000200 BIT terTo4, cnet -"EMT’ SET? 
3539 005254 O01402 BEQ oe BR IF NOT SET 
3540 Doses 900137 o06624 IMP CKF' * CHECK FORMAT ERROR 
3541 032760 900200 o00200 BIT BT T0?, SRHERI(ROS ; HCE’ SET? 
sie 005270 001402 BEQ .+6 BA IF NOT SET 
3543 005272 000137 907024 INP CKHCE “CHECK ’HCE’ ERROR 
sou pose7t 632760 000496 00200 BIT ts » SRHERL(ROS | i HERG SET? 
3546 005306 ceaig o0644e2 JMP CRCER ‘PROCESS *HCRC’ 
3547 005312 032760 O20099 o00200 BIT aeiT13, , SRHER1 (ROS sah TF Nof ser 
320 posses tae7e0 Spoeie 000200 art SBT Ta, SRHERI(RO)’ pony orl” 
325 BoO13? OO7HG2 FAP OP RRER ‘bere RT peat 
3553 Spee 032760 o00040 oDd200 BIT #BITS, SRHERI(RO)’: WCF’ SET? 
3554 005350 bo140e BE +b sr IF NOT SET 
| 3555 oO05352 000137 010132 IMP —s ACFE T WCF’ 
| 3283 BReSe feiape C000 coven0 ay teen ERLCROS 5" 1RE” ea 
| Be ieee Bee Ga FHF smen nol? 1 
355 coo200 BIT aT 11,SRHERI(RO) ;’WLE’ SET? 
| 2 ee Be a fete eeeeru 
3562 032760 001000 oo0200 BIT #8IT9,SRHERI(RO)’: AOE’ SE 
3563 005414 901405 BEQ IF NOT SET 
3564 005416 032760 000176 BIT sG1T10, | SRHDS1(RO! eh Tofeeer 
| 308 Doetes Bahan? Ars Pe * SLET! SET, EXIT 
| 3567 005430 032760 010000 o00200 1S: BIT #81712, SRHERLCRO) sSEE IF *DTE’ SET 
sere Teo ted ae re MOOTE? ERROR 
| 70 posal ae ee Tet SRHERI (ROD Lak "Dek? SET 
| 3673 gosuse 00137 oDs476 IMP —s- BCKER PROCESS DCK* 
! #73 005456 ae 140000 c00226 BIT eBITIS!BITIY, soda nied OR "OCYL’ SET 
| 3675 SpeHee 000137 010074 IMP SKIER PORT ERROR 
276 005472 000137 006572 INP ORVER tp ORT DRIVE ERROR 
| 2578 sPROCESS DATA (’DCK’) CHECK ERROR 
| 


' 
' 
' 
| 
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3879 
3580 posu7é 004737 O1Sé46 DCKER: JSR PC, SPOTCK SEE IF ERROR AT A BAD SPOT ON THE PACK 
1 07 RTS PC ‘IT DON’ T REPORT IT 
3582 po5804 737 1e008 JSR PC, LINEL PRINT LIN LINE EL OF ERROR MESSAGE 
10 104412 O44 DISPLY .E iDATA 
3584 005514 004737 016046 DCKERI: JSR PC LINES INT Cane 2 OF ERROR MESSAGE 
3585 basset 904737 016420 JSR PC‘LINES ‘PRINT LINE 3 OF ERROR MESSAGE 
3526 004737 017156 J5R PC’ LINEY *PRINT LINE 4 OF ERR 5S 
3587 005530 004737 012610 J5R PC’ PRTB ste IF BAD SECTOR ee 3 PRINTED 
3588 005534 012760 110100 oo0024 MOV aS{TIS'BIT1o!SITHG. SMASK(RO) ;LOAD ERROR MASK 
3589 bosete 032760 010100 000200 BIT BBIT12'BITOG,SRHERI(RO) <:CHECK ’DTE’ & 'ECH’ 
3590 001003 BNE 1$ -BR IF set 
3591 005552 004737 017512 ISR PC, LINE® : PRINT LINE 6 OF ERROR MESSAGE 
3692 bo5555 900530 BR “FINISH THE ERROR REPORT 
3593 le7e0 010000 on002z2 1S: MOV #1C000,SRETRY(ROS ;RETRY COUNT 
3594 005566 905001 CLR R sR1’IS OFFSET CODE POINTER 
3595 005570 004737 013644 PC, RELBUF ; RELEASE THE BUFF 
35 boss7s CLR -(§P) *MAKE ROOM FOR THE SECTOR ADDRESS 
Sega Speeas Geavs? o20124 GER BC READOR OFT THE ADDRESS OF THE ERROR SECTOR 
3599 005604 112660 000011 MOVE = (SP), $TRK(RO) + TRACK RODRESE OF ERROR. SECTOR 
3600 005610 112660 000010 MOVB = (5P)+'SSEC(RO) ;SECTOR ADDRESS OF ERROR SECTOR 
3601 bosb 14 O16060 ponee? 000012 MOV SRHCCUROD, Sc¥L (RO) sPRESENT CYLINDE 
eb0t 000020 CHP SSSEC( ), SHROL (RQ) boss if RANSEER LENGTH LESS TH THAN 1 SECTOR 
a Sees ates po00026 000020 MOV $28eccR0), SuROL (ADD ' CHANGE’ TRANSFER Ee FOr SECT 
3605 OOSE40 016069 000020 o00004 M SWROL(RO),SWROM(RO) :SETUP WORD COUNT FOR OPERATION 
3606 O05646 005460 000004 NEG SWROM (RO) sCHANGE COUNT TO 2’S 
3697 905652 DOsD4 15$: CLR -(SP) :SPACE FOR NEW BUFFER ADDRESS 
3608 005654 004 013504 JSR PC. GETBUF GET A BUFFER 
3609 O0S660 01 o00006 MOV (SP)+,S$BUF(RO) NEW BUFFER ADDRESS TO DPB 
3610 O0S664 paaoy 014340 23 JSR PC. GOORIV RETRY 
3611 005670 005760 O00016 TST STATUS(RO) TEST FOR DONE 
3612 005674 001775 BEG 3$ ‘BR IF NOT DONE 
3613 005676 100070 BPL 10$ ‘BR IF NOT ERROR 
3614 005700 032760 000200 000016 BIT #8117, STATUS(RO) jSEE IF ORDER TERMINIATED NORMALLY 
3615 005706 00151 BEQ 14§ -BR IF NOT 
2616 10 oo0024 000200 BIT SMASK(RO) , SRHER1 ERO) ie T CURRENT ERROR 
3617 005716 001427 BEQ cs ;BR_IF’ DIFFERENT ERROR 
3618 005720 032760 010100 000200 BIT SBIT12!BIT6,SRHERI(RO) ;°ECH’ OR "DTE’ STILL SET ? 
3619 005/e% 501490 BEQ 7§ BR IF NEITHER SET 
3620 1 INCB $RETRY(RO) > INCREMENT RETRY COUNT 
3621 005734 105360 DECB  SRETRY+1(RO) | ;DECREMENT RETRY LIMIT 
353 005740 001351 BNE i6R IF ORE RETRY TO GO 
3623 005742 005201 INC Tt INDEX 
2624 005744 116137 O42232 041527 MOVB OFFCOD(RI), cenorb ar CODE 
sbe5 005752 001437 BEQ ag BR IF F ho 0 OF OFFSET TABLE 
005754 116760 ooo002 000023 MOVB Se, SRETRYSLCRO) LIMIT 
3627 737 013040 JSR 
soe8 O41544 4g: TST 
001 BEQ 
3630 005774 1 BPL 
as rs 4 
33 Bea t 2 an 
3633 006006 004737 021356 JSR 
3634 006012 004737 017622 JSR 
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RPNB MAIN PROGRAM 
3635 O06016 004737 012610 ISR PC, PRTBAD PRINT THF BAD SECTOR 
338 O06022 004737 004310 JSR PC’ REFMT *REFORMAT THE ERROR SECTOR 
006026 RTS pc’ iRET URN 
3638 006030 909737 17552 7S: ISR ,LINES INT LINE 68 OF ERROR MESSAGE 
006034 737 017450 JSR PC’LINESB + PRINT LINE SB OF THE ERROR HESSAGE 
3649 O06940 004737 021236 8$: JSR PC? INCSOF s INCREMENT ‘SOFT’ ERROR COUNT 
3641 O06044 904727 O12e024 SR CECE CORRECT THE ERROR USING ECC AND CHECK IT 
3642 006050 07 BR i$ *COMPARE THE BUFFE 
3643 006052 737 017612 QS: JSR PC LINE&D ‘PRINT LINE 6D OF ERROR MESSAGE 
3644 006056 000751 BR INCREMENT ERROR COUNT 
3645 006060 004737 017524 10$: JSR , LINE :PRINT LINE 6A OF ERROR MESSAGE 
3646 O06064 004737 O2l236 JSR PC? INCSOF INCREMENT SOFT’ ERROR COUN 
3647 006070 112737 000001 O11407 11$:  MOVB  &1,FRSTER :SET "DCKER’ INDICATOR 
3648 006076 004 019710 JSR C’ CMPARD ‘COMPARE THE R 
3649 006192 011414 TST ERCTR :SEE IF COMPARE ERROR DETECTED 
3650 006106 001006 BNE I ‘BR IF ONE DID 
3651 006110 004737 021356 ISR PC. INCTOT INCREMENT TOTAL ERROR COUNT 
3652 006114 1Owie 050751 DISPLY ,LINSG :*DATA COMPARE OK’ MESSAGE 
3653 006120 004 917622 12: JSR BEL INE? “PRINT LINE 7 OF ERROR MESSAGE 
3654 006124 004737 0043210 138: JSR PC; REFNT REFORMAT THE ERROR SECTOR 
3655 006130 000207 RTS P * RETURN 
3656 006132 004737 021356 14$: JSR PC. INCTOT INCREMENT TOTAL ERROR COUNT 
3657 006136 104412 050537 DISPLY ,LINeM *DIFFERENT ERROR DURING RETRY’ 
358 006142 000137 oo4560 IMP ERPRC1 >SEE WHICH ERROR 
3660 WRITE CHECK ERROR PROCESSING 
seo 006146 004737 016002 WCKER: JSR “PRINT LINE 1 OF ERROR MESSAGE 
3663 9061S2 032760 100000 oo0e00 BIT Settis. $RHERI (RO! ;SEE IF ’DCK’ SET ALS 
3664 006160 do 1932 BNE 2s BR'IF IT IS 
3665 006162 104412 O44606 DISPLY ines sPRINT WCE & OCK NOT 
4 + RROR_MASK 
Ete, poe iss ere 16046 SéR PC, LINES + BRENT LINE 2 OF ERROR MESSAGE 
3668 176 004737 g1B420 JSR PC, LINES : PRINT LINE 3 OF ERROR MES 
3669 004737 017156 JSR PC;LINEY PRINT LINE 4 OF ERROR MES 
3670 O06206 OOH? 3? 017256 JSR PC, LINES “PRINT LINE S OF ERROR MESSAGE 
35 iE ratte oo0022 nov aia Q,SRETRY(RO)’ mre — a 
Br Geet Ora OlsiNe jer Fesrethy RETRY The Gruman 
3675 O0be3¢ 737 017562 JSR PC, LINEBC iBRINT CORE FOF ERROR NES 
3676 062% BR 98S FINI ESSING THE ERROR 
| 3677 017612 1S: SR FC LINEED PRINT LINE DOF ERROR MESSAGE 
| 3679 oesue renee, O1S646 2s: JSR PC, SPOTCK *SEE IF AT BAD EBT On THE PACK 
| ey Soeses Souat Brepty fe Hic’. De Ears 
| Bee Bieseo ona Ciehie det fesCinez RINT CINE’ Or Enno essnoe 
| 3684 ppeseh tee sata JSR pe? tENES SPRINT CINE 4 OF ERROR HE 
| 3685 006274 (04737 O17¢56 JER pein eo LINE a OF ERROR MESSAGE 
| ses GOesoe oS ii en 2) oe rina F BROCESEING THE ERROR 
3688 10 Ol 010000 00022 3s: MOV #10000 SRETRY (ROS LIMIT - 16 (10) 
| 3689 006316 004737 014340 4g: JSR GODRIV retny Fee ORDER 
| 3690 006322 005760 900016 Ss: TST STATUS CRO) t ORDER FINISHED ? 
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penn Pit MAIN PROGRAM 
3} 1 ua a BOROR ON OR ER 
= ; ono0e2 INCB BRETRY (ROD el ENT RET RY COUNT 
94 00633 0175 ISR C,LINEGC OF ERROR MESSAGE 
3695 BR be’ ate IER” PROCESS! NG 
369 006344 o00022 6S: INCB = $RETRY(RO) SINCREMENT RETRY COUNT 
3697 000023 DECB = SRETRY41(RO) iD CREMENT RETRY LIMIT 
338 BEQ 1$ IF BT RETRY LIMIT 
89 006356 100000 000200 BIT #BITILS, SRHERICROS” ;*DCK’ SET 
3700 BEQ -BR'IF NOT - DIFFERENT ERROR 
3701 006366 032760 000100 ooo200 BIT #81T06,SRHERI(ROS ;’ECH’ ALSO SET 
3702 BNE 4g BR IF IT 1 1S; RET RY. ORDER 
3703 017562 ISR PC,LINEGC :PRINT LINE 6C OF ERROR MESSAGE 
3704 000403 BR gs’ iBINISH PROCESSING ERROR 
3705 004737 020070 7S: ISR PC, LINES * PRINT LINE "DIFFERENT ERROR ’ 
3706 006410 O0040S BR 9g sFINISH PROCESSING ERROR 
3707 OO64le 004737 021356 9g: ISR PC, INCTOT INCREMENT TOTAL ERROR. COUNT 
3708 006416 O04 017&22 JER PC; LINE? ?FINISH THE ERROR MESSAGE 
3709 O06422 rind RTS P RET ; 
3710 O06424 004737 021256 QS: JSR PC, INCTOT : j INCREMENT TOTAL ERROR COUNT 
3711 O06430 004737 O17b22 i0$: JSR PC'LINE? ‘FINISH THE ERROR MESSAGE 
3712 OO08434 004737 004310 JSR PC, REFMT "REFORMAT THE SECTOR IN ERROR 
#13 006 000207 RTS : 
aris sREPORT 'HCRC’ ERROR 
3717 OO6442 004737 O1S646 HCRCER: JSR PC, SPOTCK SEE IF ERROR AT PACK BAD SPOT 
3718 006 g00207 RTS PC sRET URN IF IT IS 
19 9506 016002 J PC, LINE :PRINT LINE 1 OF ERROR MESSAGE 
| 3720 o06454 iovle 1. DISPLY ,EM20 j REPORT "HCRC’ 
| 3721 O06460 16046 - ISR PC, LINE2 PRINT LINE 2 OF ERROR MESSAGE 
| see Dobe 004737 O1e420 SR PC; LINES fe LINE 3 OF oe NESSAGE 
363 eater peaeea Baad 000174 BIT setts SRHCS2CRO} TUES ERROR ALSO _— 
| Fee Oossot Oov7g? isk PCLT I WHICH CAUSED *HCE” 
! ’ 
| 5) Gbesio Gowrse Geisse j peste. Meant TT RSRUERLINT 
3728 006514 004737 021356 JSR PC’ INCTOT t INCREMENT TOTAL ERROR COUNT 
| 3729 O1e760 000400 oo0024 MOV #BtTS,SMASK(RO) ; ERR 
| 3730 2760 901400 000022 MOV #1400’ SRETRY(RO)’ ;RETRY LIMI 
| Pas Clsite aR PC, RETRY sRETRY NOT SUCESSFUL 
| 3733 pppeus 004737 017562 ISR PC, LINEGC *PRINT LINE 6C OF ERROR MESSAGE 
| 3734 OO06546 737 Ol7bee PC; LINE? *PRINT LINE 7 OF ERROR MESSAGE 
3735 006552 ia RTS PC * RETURN 
| 3736 006554 004737 017612 1$: JSR PC, LINEGD :PRINT LINE 6D OF ERROR MESSA 
| 3737 006560 04? 01 JSR BC, LINE? : PRINT INE ? OF ERROR MESSAGE 
2738 006564 737 00431 JSR PC’ REFMT s REF ORMA HE ERROR SECTOR 
| 23 006570 RTS PC * RETURN 
2 ;REPORT DRIVE ERROR 
004737 O1 DRVER: JSR PC, LINEL :PRINT LINE 1 OF ERROR MESSAGE 
oda popeze 10441e piEhee DISPLY ,EM30 "REPORT DRIVE ERROR 
| 3745 OO06602 004737 O16046 ISR PC, LINES ‘PRINT LINE 2 OF ERROR MESSAGE 
| 3746 006606 004737 Ole4e0 JSR PC, LINES "PRINT LINE 3 OF ERROR MESSAGE 
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ier 
RTS 


;PROCESS FORMAT (‘FMT’) ERROR 








SIT 


RTS 


;PROCESS HEADER COMPARE (’HCE’) ERROR 


CKHCE: BIT OSFTS, HERERO) 








hes STATUS (RO) ibe iF nor SET ON ORIGINAL ERROR ? 


CLEAR sTacK FOR BECREMENTED 

GET CORRECTED TRACK & SECTOR ADDRSSES 
"HCRC’ SET BEN HEADER READ? 

F *HCRC’ 


NO ERROR 1S Ent ONLY 
£ IF ERROR aT BAD SPOT ON THE PACK 


PC’ READHD 
wetT8, GENREG#RHERL 


Bane! 


“B23 


ERROR MESSAGE 
- FMT BIT DROPPED UP 
RROR MESSAGE 


cet srucs2(Ro! 


a 


as IEC CAUSED *WCE’ 


——OOW 
<< 


43S 


OTAL ERROR COUNT 
MASK 


i 


. weweweewewe wee ee 


CRC SET ON ORIGINAL ERROR ? 
snepat READER CRC ERROR 
rt 

CURRENT SECTOR & TRACK ADDRS 
PC’ READHD ifeio es ADER OF CURRENT SECTOR 
qi oeonclt ae 

LEAR FORMAT BIT FROM HEADER 
SFUCCTRO),CYLDER’ LINDER 


REPORT POSITIONING ERROR 
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Bis WBIT12,CYLDER ;RESTORE THE FORMAT BIT 


IMP HCEER "REPORT ’HCE’ ERROR 

2S: JSR PC, SPOTCK SEE If FRR AT BAD SPOT 
RTS P : N IF IT IS 
ISR PC, LINE! ‘PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EMeS *HEADER READ ERROR - ’HCE’ SET 
JSR PC LINE? *PRINT LINE 2 OF ERROR MESSAGE 
ISR PC, LINES *PRINT LINE 3 OF ERROR MESSAGE 
J5R N : LINE 4 OF ERROR MESSAGE 
BIT wGIT14, SRHCS2(RO} 5 HE ERROR ALSO ? 
JSR PC, LINES s DISPLAY WORDS WHICH CAUSED ‘WCE’ 
JSR PC, LINESA *PRINT LINE S OF ERROR MESSAGE 
JSR PC, INCSOF INCREMENT SOFT ERROR COUNT 
ISR PC’ INCTOT INCREMENT TOTAL ERROR COUNT 
MOV sB1T7, SMASK(RO) :SET ERROR MASK 
MOV #1400’ SRETRY(RO)’ ;RETRY LIMIT 
JSR PC, RETRY sRETRY THE ORDER 
BR 3$ RETRY NOT SUCESSFUL 
JSR PC, LINEGC *PRINT LINE 6C OF ERROR MESSAGE 
JSR PC, LINE? *PRINT LINE 7 OF ERROR MESSAGE 
RTS PC * RETURN 

3S: JSR PC, LINEGD *PRINT LINE 6D OF ERROR MESSAGE 
JSR PC, LINE7 “PRINT LINE 7 OF ERROR MESSAGE 
ISR  REFNT *REFORMAT THE ERROR SECTOR 
RTS PC *RET 

sREPORT POSSIBLE POSITIONING ERROR 

POSER: JSR PC, RECALT ; RECALIBRATE 
JSR PC’LINEI ?PRINT LINE 1 OF ERROR MESSAGE 
DISPLY 1 : DETECTED POSITIONING ERROR 
JSR PC, LINES *PRINT LINE @ OF ERROR MESSAGE 
JSR PC’LINESC ‘PRINT LINE 3C OF ERROR MESSAGE 
BIS #BiTl2,CYLDER ;RESTORE THE FORMAT BIT 
JSR PC, LINESA *PRINT LINE SA OF THE 
JSR PC, INCMIS *INCREMENT MISPOSITIONING COUNT 
ISR PC; INCTOT : MENT TOTAL ERROR COUNT 
J5R PC; LINE7A “PRINT LINE 7A OF ERROR MESSAGE 
RTS PC : 

;REPORT ’OPI’ ERROR 

OPIER: JSR PC, SPOTCK ;SEE IF ERROR AT BAD SPOT 
RTS PC RETURN IF IT IS 
JSR PC, LINEL ‘PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM31 >*OPI’ ERROR 
JSR PC LINES “PRINT LINE 2 OF ERROR MES 
JSR pC LI 3 sPRINT Ut 3 OF ERROR MES 
JSR PC; LINEY ‘PRINT LINE 4 OF ERROR 
JSR PC’ INCTOT INCREMENT TOTAL ERROR COUNT 
MOV #81713, SMASK(RO)’ ;ERROR MASK 

OPIERI: MOV #1400, $RETRY(RO) :RETRY LIMIT 
JSR PC, RETRY sRETRY THE ORDER 
BR 1$ RETRY UNSUCESSFUL 
ISR PC, LINEGC ‘PRINT LINE 6C OF ERROR MESSAGE 
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GRAM 


000024 
o000ee 


JSR Bk LINE? 


18: JSR PC, LINE6D 


;REPORT ’DTE’ ERROR 
DTEER: JSR PC, SPOTCK 
RT P 


ISR PC, LINEL 
DISPLY ,EM32 
IMP OCKER 


;REPORT ’PAR’ ERROR 
PARER: JSR PC,LINE1 
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DISPLY ,.EM33 

JSR PC,LINE2 

JSR PC, LINE SE 

JSR PC, LINEY 

JSR PC’ INCTOT 

MOV #8tT03, SMASK(RO) 
MOV #1400, $RETRY(RO) 
JSR > RETRY 

JSR PC, LINEBC 


18: JSR PC »LINE7 
es: JSR PC,LINE6D 
BR 1$ 


;REPORT ’IAE’ ERROR 
IAEER: are PC, LINE 


RTS 

“REPORT *WLE’ ERROR 

WLEER: JSR PC, LINE] 
DISPLY ,EM36 
JSR PC .LINE2 
JSR PC; INCTOT 
JSR PC; LINE? 
RTS 


;REPORT FORMAT ERROR 


FMTER: JSR PC, LINE] 
SPLY ,EM26 





eat LINE 7 °F ERROR MESSAGE 


PRINT LINE 5 vF ERROR MESSAGE 
‘PRINT LINE 7 OF ERROR MESSAGE 
sREFORNAT THE ERROR SECTOR 





;SEE IF ERROR AT BAD SPOT 

SRETURN IF IT IS 

;PRINT LINE 1 OF ERROR MESSAGE 
*DTE’ ERROR 


FINISH PROCESSING THE ’DTE’ ERROR 


PRINT LINE 1 OF ERROR MESSAGE 
REPORT ’PAR? 

SPRINT LINE 2 OF ERROR MESSAGE 
SPRINT LINE 3E OF ERROR MESSAGE 
INT LINE A 

MA 


; INCRE 
;ERROR MASK 
“RETRY LIMIT 
RY ORDER 
RET RY UNSUCESSFUL 


RETRY SUCESSFUL 
Bar LINE 7 OF ERROR MESSAGE 


PRINT LINE 60 OF ERROR MESSAGE 
FINISH ERROR MESSAGE 


ERROR MESSAGE 


OF 
OF ERROR MESSAGE 
; OF ERROR MESSAGE 
; INCREMENT TOTAL ERROR COUNT 

7 OF ERROR MESSAGE 


sPRINT LINE | OF ERROR MESSAGE 
ZREPORT ° 
; PRINT ERROR MESS 


SPRINT LINE 7 OF ERR 
; RETURN 





;PRINT LINE 1 OF ERROR MESSAGE 
;FORMAT ERROR 
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1S oO07644 737 01604 R : PRIN R 
aie ES GR flees HR MSS Ga es 
17 007654 004737 017156 JSR ‘PRINT LINE 
a8 i 040000 000174 BIT ee}TI4, SRHCS2(RO! ho TUE? ERROR acco 
76 737 017256 ISR PC, LINES ; DISPLAY WORDS WHICH CAUSED ’WCE’ 
3921 007674 737 017256 JSR PC, LINESA “PRINT LINE SA OF ERROR MESSAGE 
3922 007 737 021356 J5R PC; INCTOT INCREMENT TOTAL ERROR COUN 
3923 004737 017622 J5R PC; LINE? *PRINT LINE 7 OF ERROR MESSAGE 
3924 007710 O002 PC 
33 sREPORT HEADER COMPARE ERROR 
3928 007712 004737 016002 HCEER: JSR PC,LINEL :PRINT LINE 1 OF ERROR MESSAGE 
3929 007716 104412 O4S041 DISPLY ,EMe?7 *HEADER COMPARE ERROR 
3930 007722 004737 016046 JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
3931 007726 004737 016420 JSR PC, LINES sPRINT LINE 3 OF ERROR MESSAGE 
3932 007732 004737 017156 JSR PC’LINEY PRINT LINE 4 OF ERROR MESSAGE * #4) 
3933 007736 032760 940000 000174 BIT #BtT14, SRHCS2(RO} WCE’ ERROR ALSO ? és Yt] 
3334 Oo77¥a OOl4 BEQ si #6 ;BR_IF NOT Ha 
007746 737 017256 ISR PC, LINES ‘DISPLAY WORDS WHICH CAUSED 'WCE’ 
3936 007752 004737 017356 J PC; LINE *PRINT LINE SA OF ERROR MES 
3937 007758 737 1356 JSR PC; INCTOT : NT TOTAL ERROR COUNT 
3938 727 Ol JSR PC; LINE? *PRINT LINE 7 OF ERROR MESSAGE 
3939 007766 004737 004310 JSR PC; REFMT *REFORMAT THE ERROR SECTOR 
3340 007772 000207 RTS PC * RETURN 
sae PROCESS CONTROL/INTERFACE TRANSFER ERROR 
3944 007774 004737 016002 TRFER: JSR PC, LINEL sPRINT LINE 1 OF ERROR MESSAGE 
3945 010000 104412 O45434 DISPLY 0 *RH11 OR UNIBUS TRANSFER ERROR 
sie 010004 004737 O16046 ISR PC. LINE2 “PRINT LINE 2 OF ERROR ME 
7 010010 004737 016420 JSR PC, LINES “PRINT LINE 3 OF ERROR MESSAGE 
3948 010014 004737 017156 JSR PC’ LINEY SPRINT LINE 4 OF ERROR MESSAGE 
3949 010020 O04 1356 JSR PC’ INCTOT “INCREMENT TOTAL ERROR COUNT 
3950 010024 nets 121400 000174 BIT agtT15!B1T13¢8179:8118, SRHCS2(RO) ;*DLT’, UPE’, MXF’, *MDPE’ SET ? 
3951 010032 OO1415 BEQ 2s BR IF NONE SET 
3952 010034 012760 001400 op002e2 MOV #1400, SRETRY(RO)’ ;RETRY LIMI 
3953 010042 CLR SMASK TRO) sCLEAR ERROR 
pitpes poodas eet te _— RETURN ERS TE ReseY UNSUCESSFUL 
See shen Boa? aF 017562 ak BE ineec “PRINT LINE 6C OF ERROR 
3957 010060 o0040e2 BR 2s sEANIGH THE ERROR REPORT 
$358 010062 004737 17612 1$: JSR PC, LINESD PRINT LINE gD. OF ERROR MESSAGE 
9 010066 004737 O1 : 2: JSR PC, LINE? :PRINT LINE 7 ” OF ERROR MESSAGE 
3360 010072 RTS PC : 
| soe sPROCESS ’SKI’ OR ’OCYL’ ERRORS 
3964 010074 737 016002 SKIER: JSR 
395 010100 104412 045744 
3966 010104 737 O16046 
3967 010110 004737 016600 
3968 010114 737 021356 
3969 010120 004737 021306 
2970 010124 004737 017750 





rr 
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3971 010130 000207 RIS PC 
3973 sREPORT WRITE CLOCK FAILURE (’WCF’) 


910132 004737 o16002 WCFER: JSR PC, LINE] sPRINT tine. i OF ERROR MESSAGE 
77 ibis ae eter van tt geht nero NT LINE 2 OF SOUR ROR FIECEAGE 
3355 stats Bado39 pteg3e 328 Pe’ TINE SA PR NI ; it ee Fe ERROR Reser SAGE 
3979 0101S2 004737 017156 JSR . SAGE 
3380 010156 O04? 37 021356 JSR PC, INCTOT STNGRENENT. “TOTAL ERRGR CEUNT 
981 010162 737 012610 JSR P :SE BAD TO BE PRINTED 
3982 O10166 012760 001400 oD0022 MOV #1400, $RETRY(RO)’ ;RETRY COUNT 
3983 010174 Ol2e760 coo040 oocoe4 MOV #21705, $MASK(RO) _:ERROR 
3984 010202 004737 O13146 JSR PC, RETRY sRETRY THE ORDER 
3985 010206 BR 2s" _ RETURN HERE IF RETRY UNSUCESSFUL 
3986 010210 004737 017562 JSR PC, LINESC ‘PRINT LINE 6C OF ERROR MESSAGE 
3987 b10214 004737 017622 1$: JSR PC, LINE7 :PRINT LINE 7 OF ERROR MESSAGE 
3988 010220 000207 RTS 
3989 Ol0222 004737 917612 2S: JSR PC,LINEGD sPRINT LINE 6D OF ERROR MESSAGE 
3330 010226 000772 BR 1$ 
3992 sPROCESS DRIVE UNSPFE ERROR 
33aq a4 010230 0047327 016002 UNSAF: JSR PC, LINEL sPRINT LINE 1 OF ERROR MESSAGE 
3995 019234 104412 O46055 DISPLY j REPORT DRIVE 
39% 010240 004737 O16046 JSR PC LINES PRINT LINE 2 OF ERHOR MESSAGE 
3997 010244 004737 016420 JSR * LINES t PRINT LINE 3 OF ERROR MESSAGE 
3998 010250 064737 021356 JSR PC; INCTOT tINCREMENT TOTAL ERROR COUNT 
3999 910254 004737 017622 JSR ; :PRINT LINE 7 OF ERROR MESSAGE 
4000 016260 RTS 
4008 sREPORT AN ’UNKNOWN’ DATA PATTERN 
4004 010262 105737 011407 NOMTCH: TSTB = FRSTER sFIRST ERROR IN THE SECTOR ? 
4y00S 010266 001013 BNE 1$ *BR IF NOT OR IF PROCESSING ’DCKER’ 
4006 010270 004737 0o16002 JSR PC, LINEL *TYPE LINE 1 OF ERR 
4007 010274 Louie 0456)3 DISPLY :*CAN’T MATCH DATA WITH PATTERN’ 
4008 010300 016046 ISR PC,LINE2 “PRINT LINE 2 OF ERROR MESSAGE 
4009 010304 004737 016426 JSR PC,LINESA “PRINT LINE 3A OF ERROR MESSAGE 
4010 010310 004737 017156 JSR PC; LINE4 *PRINT LINE 4 OF E 
4011 010314 900404 BR ‘CONTINUE PROCESSING ERROR 
4012 010316 104412 045613 iS: DISPLY ,EM43 **CAN’T MATCH DATA WITH PATTERN’ 
4013 010322 104412 001165 DISPLY ‘SCRLF *CR-LF 
4014 b103e6 buie 050701 2s: DISPLY ‘LINS *HEADER FOR DATA PRINTOUT 
| 40iS Ol 101 MOV RI, -(SP) "ADDRESS OF WORD 1 
4016 010334 004737 PC’ PRTOCT :PRINT IT 
4017 O10340 104412 051364 DISPLY : SPACES 
4018 O10344 b1e146 MOV tR1)+.-(SP) “WORD 1 
; 4019 010346 737 ISR t :PRINT IT 
| 4020 010352 104412 O01165 DISPLY ,$¢ *CR-LF 
4021 010356 010146 MOV 1,-(SP) SADDRESS OF WORD 2 
ee 010360 004737 40 JS PC’ PRTOCT “PRINT IT 
4023 010364 104412 051364 DISPLY ,LINSP * SPACES 
4024 010370 O12146 (R1)+,-(SP) “WORD 2 
4025 010372 094737 o24740 JSR PC PRIOCT ‘PRINT IT 
4026 010376 !04412 001165 DISPLY , SCRLF * CRLF 
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4027 G1O402 010146 
woes O10404 004737 o24740 
4023 O1O410 104412 051364 
4030 O1O414 012146 
4031 O10416 004737 O24740 
4yO32 O10422 104412 001165 
4033 O10425 910146 
4034 O10430 004737 O24740 
4035 O10434 104412 051364 
4036 O1O44O 012146 
4037 O10442 004737 024740 
4038 O10446 104412 001165 
4039 O104S2 062701 000770 
HO¥G O1O¥SE 060237 011414 
4042 O104%2 oosoo2 
4043 OJON 112737 177777 
4yo44 010472 000207 
44S 
4O4G 
4047 
4048 O10474 032760 060000 
4048 O10502 001015 
4050 O10504 032760 177400 
405i 010512 OO1011 
4052 010514 005760 o00200 
4053 010520 001006 
4054 010522 005760 o00224 
4055 910525 001003 
4056 010530 005760 on0226 
4057 010534 001416 
4058 010536 004737 o16002 
4053 O10542 104412 O45660 
4060 O10546 004737 O16046 
4061 010552 004737 016420 
Hee O10ss— 004737 017156 
4063 010562 004737 021356 
4064 010566 004737 O17 
4065 010572 07 
4ObE 
4067 
4068 
4063 O10574 005760 O00166 
4070 010600 001010 
4071 O10602 O1604 oo0020 
4072 010606 006316 
4073 O10610 066016 gpo0n¢ 
4074 010614 22660 000170 
4075 010620 OO1416 
4076 O10622 004737 O16002 
4077 010626 104412 045472 
407@ 010632 004737 O1604b 
4079 010636 004737 016734 
4080 10642 004737 01715 
4081 O10646 004737 021356 
4082 O106S2 004737 017622 


| 
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MOV R1,-(SP) ;ADORESS | OF WORD 3 
JSR PC’ PRTOCT “PRINT IT 
DISPLY ,LINSP ; SPACES 
V tR1)+, =(SP) WORD 3 
SR Pc PRTOCT s PRINT IT 
DISPLY ,SCRLF *CR=LF 
V Ri, -(SP) ; ADDRESS OF WORD 4 
SR PC’ PRTOCT *PRINT IT 
DISPLY ,LINSP : SPACES 
V tR1)+,-(SP) “WORD 4 
SR PC PRTOC SPRINT IT 
DISPLY ,$CRLF :CR- 
DD Warn RI ‘INCREMENT BUFFER POINTER 
D R2,ERCTR "ADD SECTOR (OR LESS) COUNT TO THE 
;COMPARSION ERROR COUNT 
CLR R2 :CLEAR "WORDS TO COMP ARE’ COUNT IN R2 
MOVE 4-1, FRSTER sBET aNOT FIRST ERROR’ INDICATOR 


; CHECK ERROR BITS IN THE RH11 & RPOY REGISTERS 


CKERR: 


1$: 


es: 


BIT #60000,SRHCSI(RO) ;SEE IF ’TRE’ OR 'MCPE’ SET 
BNE ;8 THER SET 

Bit 6177400, SRHCSECRO) te IF ERROR BITS IN CS2 SET 
TST $RHEP 1 (RO) s ANY te Sl, IN ERI 


BNE 1$ °BR IF A 
TST SRHER2(RO) ANY Brits ‘Sey IN ERe ? 

BNE 1 "BR IF ANY SET 

TST SRHER3(RO) “ANY BITS SET IN ER3 ? 

BEQ 2g ?BR IF NONE SET 

ISR PC, LINE! *PRINT LINE 1 OF ERROR MESSAGE 

DISPLY y : BITS SET, BUT ’SC’ OR 'TRE’ NOT SET 
SR PC, LINE2 *PRINT LINE 2 OF ERROR MESS 

JSR PC; LINES ?PRINT LINE 3 OF ERROR MESSAGE 

JSR *LINEY “PRINT LINE 4 OF ER ROR MESSAGE 

JSR PC; INCTOT ‘INCREMENT TOTAL ERROR COUNT 

JSR * LINE? “PRINT LINE 7 OF ERROR MESSAGE 

RTS PC : RETURN 


;CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 


CKBUS: 


1$: 


TST $SRHWC (RO) ;CHECK WORD COUNT 

BNE BR IF NOT ZERO 

MOV 1) pelea ~(SP) ; WORD LENGTH 

ASL (SP) 3;CH TE COUNT 


ANGE INTO BY 
ADD SBUF(RO),(SP) ADD THE STARTING LOCATION 
CMP (SP)+,$RABA(RO) ; irre ADDRESS PROPER 


BEQ *BR IF OK 
JSR PC LINE! “PRINT LINE 1 OF ERROR MESSAGE 
DISPLY .E :B S OR WORD COUNT INCORRECT 
ISR Be LT “PRINT LINE 2 OF ERROR MESSAGE 

JSR PC;LINESD ‘PRINT LINE 3D ROR MESSAGE 

JSR PC;L PRINT LINE 4 

JSR sree nT TOTAL ERROR COUNT 

JSR PRINT LINE 7 OF ERROR MESSAGE 
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4983 010856 000207 23: RIS PC 
4085 :COMPARE THE BUFFER 
4087 O10E6O 132760 OCO004 000030 CMPAR: BITS  sBITO2,SCODE(RO) ;SEE IF READ ORDER 
4088 1 901904 N +4 ; R TF IT IS 
4 1 RT PC ETURN 
4030 1067 052737 oooco2 001149 BIT WSHO1, SUR ‘15 PPnet 1 SET? 
UU E + : 

dpe BibeRo Bbhaas Bg pt YES. DON’T COMPARE 
4093 010704 105037 011407 CLRB ss FRSTER CLEAR "FIRST ERROR’ INDICATOR 
4094 010710 005037 011414 CMPARD: CLR ERCTR “CLEAR THE ERROR COUNTER 
4095 010714 1 o00006 MOV $BUF (RO) ,R1 jBUFFER -BODR ESS 
Wos? Siovee BeeDS? popiee OliMeD OY SRLS} RENT sHORD, COUNT TO MORKEING LOCATION 
4098 ste 1 ptt ise MOV CYL (RO), OMCYL eye DER Robes WORKING PORT Eon 
4099 010742 052737 010000 O11422 BIS #BIT12, CACYL pat 
4100 010750 016037 000010 011424 MOV $SEC(RO) , CMSEC EL TOR _ TRACK ADDRESSES TO WORKING LOCNS 
4101 010756 013737 901306 O11416 MOV CMPLMT, LIMIT ; DISPLAY LI 
4102 010764 37 011416 INC LIM : CONVERT LARAMETER INTO LIMIT VALUE 
4103 010770 112737 177777 O114C6 CMSTR: MOVB #-1,ZROIND :CLEAR THE ’ZERO’S’ INDICATOR 
4104 010776 011410 CLR SAVER :CL EAR THE R1 SAVE WORD 
4105 011002 011412 CLR SAVER 3 ‘CLEAR THE RS SAVE WORD 
4106 011006 O23 011420 oo0026 €MP CMCNT,SSSEC(RO) ’;IS BUFFER SIZE GREATER THAN ONE SECTOR ? 
4107 011014 101003 BHI +10 s-=) BR IF TI 
4108 O11016 013702 011420 HOV CNCNT, R2 I LESS THAN, USE REMAINING BUFFER 
4110 011024 01 oo0026 MOV Pe SEC(RO),R2 _ 3<-- I COMPARE SECTOR 
4111 911030 HEROS 000026 011420 SUB SSSEC(RO)CMCNT :<---= DECREMENT WORD COUNT 
4112 011036 1 000030 ooocods CMPB  §CODE(RO),#S | ;READ HEADER & DATA 
4113 011044 001036 BNE CMD "BR IF NOT 
4114 011046 023721 011422 CMHED: CMP CMCYL, (R1)+ ‘CHECK CYLINDER 
4115 0110S2 00140e BEG 56 ;BR IF SOMPARE OK 
4116 011054 004737 011130 JSR ‘REPORT ERROR 
4117 O11060 023721 011424 CMP cals (RL)+ “COMPARE SECTOR & TRACK 
4118 011064 O01402 . BEQ +6 ;BR IF £0 
4119 011066 004737 011130 ISR PC, 1S "REPORT ERROR 
4129 011072 005721 | TST (RI)+ 31ST KEY WORD ZERO? 
4121 011074 O01402 BEQ +6 IF IT Is 
4122 011076 004737 011130 ISR PC, 1$ REPORT ERR 
4123 011102 005721 TST (RL)+ *CHECK 2ND REY WORD 
4124 O11104 001402 BEG +6 BR IF ZERO 
4125 011105 004737 011130 ISR PC, 1$ REPORT THE ERROR 
4126 Ollll2 162702 000004 SUB #4°R2 *SUBTRACT HEADER LENGTH FROM SIZE 

| 4127 O11116 003530 BLE CMPRX *BR IF FINISHED 
4128 011120 02 oooon4 =. CMP #4, Re *SEE IF AT LEAST 4 MORE WORDS TO CHECK 
4129 011124 101125 BHI CMPRX ;BR I 
4130 Ollleb OS BR CMDAT “COMPARE THE DATA PORTION. 
4131 011130 005237 011414 1S: INC RCTR j INCREMENT THE ERROR COUN 

132 011134 004737 011426 ISR C, CMPRT "REPORT THE COMPARISON ERROR 

4133 011140 000207 RTS PC ‘CHECK THE REST OF THE HEADER 
4134 titi 004737 011746 CMDAT: JSR PC, MATCH ;EIND THE PATTERN 
4135 O11146 O0c4 BR 2g FOUND A PATTERN 
4136 11150 004737 010262 JSR PC, NOMTCH "RETURN HERE IF NO MATCH WITH PATTERN MADE 

| 4157 O11154 O00456 BR 8$ ;BYPASS COMPARE ROUT 

| (4138 D11iS6 O11405 23: MOV (R4) RS ADDRESS OF PATTERN ADDRESS IN RY 








-_ 
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4139 OL1160 012703 o00020 MoV 820,23 “R32 1S PATTERN POS COUNTER 
4140 011164 Oz2l 38: CMP (RI}+, (RS)+ ‘COMPARE BUFFER WITH PATTERN 
4141 O11166 001016 BNE . &§ ‘BR IF NOTE 
414 11179 737) OL1414 TST ERCTR "ERRORS DETECTED ? 
4143 O11174 001406 BEQ ug :BR If NO ERRORS 
4i44 611176 O32737 00010 o01140 BIT 8SW3, SWR ‘SWITCH 3 SET ? 
4i4S 911204 901402 SEQ ug :BR IF NOT SET 
4:48 611208 OO473? O1l426 JSR PC, CMPRT ‘DISPLAY THE WORD 
434 giigie 005302 4S: DEC Re :DECREMENT SIZE COUNT 
4348 911314 9014 BEG ag :BR WHEN AT END 
4149 Olle16 DEC R3 :DECRENENT PATT POS COUNT 
4250 sitzeg 1361 SNE 33 !BR IF NOT AT END OF PATT 
415] O11 SR 2s ‘RESTART THE PATTERN 
#152 blige 005761 177776 S$: TST =2(R1) IS MISCOMPARED CHARACTER=0 
4153 811230 00141 BEQ 6$ BR IF YES 
| 4154 Olle32e 1) 177777 911406 MOVB 8-1, ZROIND :SET NON-ZERO MISCOMPARED IND 
| 4355 O11040 005237 011414 INC ERctR S INCREMENT THE ERROR COUNTER 
| 4} bliews 004737 011426 JSR PC CMPRT ‘REPORT ERROR 
, 4] 11250 000760 BR 4§ : *CONTINUE COMPARE 
4158 011252 105737 011407 6$: TSTB = FRSTER FIRST ERROR? 
4159 0112356 100407 BMI 7§ BR IF NOT 
| 4760 11260 hoS037 ! CLR OIND *SET THE ZERO INDICATOR 
| #161 O11 10137 011410 MOV R1, SAVERL :SAVE CURRENT RI 
tite Olle70 010527 O11412 MOV RS; SAVERS *SAVE CURRENT 
| #163 011274 O00? BR 4g ‘CONTINUE COMPARE 
4164 O1le7 1 011406 7$ TSTB  ZROIND “ANY MISCOMPARIONS NOT ZEROS ? 
| #15 01130 001743 BEO 4§ ‘BR IF NONE-ALL ERRORS=ZERO 
1158 O11 004737 011426 ISR PC, CMPRT REPORT ERROR 
4167 911310 o00740 BR 4§ *CONTINUE COMPARING 
4168 liste 08/37 011420 gS: TST CMCNT AT END OF BUFFER 
4169 011316 0034 BLE CMPRX ‘BR IF AT END 
4170 011320 126027 000030 oco0ccs CMPB  SCODE(RO),#S5 | ;SEE IF READ HEADER & DATA 
417 0:1 32 001220 STR ?BR IF NOT 
4172 O11 105237 011424 INCB  CMSEC INCREMENT SECTOR 
| 173 011334 123727 O11424 oo0oz CMPB ss CMEC, a2. *SECTOR GREATER MAX ? 
4174 011342 1036! BLO €MSTR *BR IF NOT GREATER THAN MAX 
4175 O11344 1 011424 CLRB = CMSEC ‘CLEAR SECTOR ADDRESS 
4176 011350 105237 011425 INCB = CMTRK : INC T K 
4177 011354 1es7e2 011425 ooc0e3 CMPB. Os CMTRK, #19. :TRACK GREATER THAN MAX ? 
4378 011362 1 BLO CMSTR *BR IF TER 
4179 O11364 105037 oO11425 CLRB = CMTRK RESET ss 
| 41860 011370 005237 011422 INC YL * INCREMENT CYLINDER ADDRESS 
4} p17 000137 910770 IMP €MSTR :CONTINUE WITH COMPARE 
4] 11400 004737 611702 CMPRX: JSR PC, ENDCMP “PRINT LAST LINE IF ERRORS 
4163 011404 RTS PC 
4185 O11 oI YTE -l ZERO INDICATOR 
| 41BE seid 300 pRotee: YT FERC, ERROR INDICAT 
4187 tIF > Q, PROCESSING *DCKER’ 
4188 *IF < 0. MISCOMPARSION FOUND 
| 4189 011410 oD0000 SAVERI: .WORD 0 “SAVE RI HERE 
4190 oiiule ooc000 SAVERS: .WORD O :SAVE RS HERE 
/ M191 01144 ERCTR: :WORD O ‘NUMBER OF ERRORS 
/ 4192 011416 000000 LIMIT: :WORD 0 :DISPLAY LIMIT 
/ 4183 911420 900000 CMCNT: .WORD 0 *WORD COUNT 
| 4194 O1il4ge 000000 CMCYL: :WORD 0 CYLINDER ADDRESS 








| 
| 
| 
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4195 0114 CMSEC: .BYT 
at piiise BBS CMTRK: ENTE : 
438 sTYPE DATA COMPARE ERRORS 
4200 0114 37 011410 CMPRT: TST SAVER! 
4201 pit iss tat SNE 
4202 011434 108737 011407 TSTB = FRSTER 
4203 O11440 1004 syd 1$ 
4294 011442 904737 011522 ISR PC 4 
4205 O1I446 004737 O11E04 13 SR PC‘ as 
4206 O114Se O00422 5R 3$ 
4507 911454 23: 
4208 O11454 010146 MOV R1,-(SP) 
4203 011456 010546 MOV RS’ -(SP) 
4210 O114680 013701 011410 MOV YERI,R1 
421] 011464 013705 O11412 MOV SAVERS; RS 
4212 011470 004737 011522 JSR PC, 4§ 
4213 011474 OO4737 911604 JSR PC’ 8S 
4214 011500 005037 O11410 CLR SAVERI 
4215 011504 605037 O11412 éLR SAVERS 
4216 011510 012605 MOV (SP)+,RS 
4217 011512 012601 MOV (SP)4’RI 
| 4318 O11514 004727 011604 JSR 8S 
| 4218 611520 o00207 2S: RTS 
| 4220 011522 105737 011407 ug: TSTB FRSTER 
4221 011526 100425 BMI 
“Dee o1150 001012 BNE 
4223 O11 004737 016002 ISR PC, LINE! 
4uee4 011536 104412 O45536 DISPLY 2 
4225 piste 004737 O16046 JSR PC ,LINE2 
42265 O11 004737 O16426 JSR "LINE 
W227 011552 004737 017156 JSR PC; LINE 
4228 O11556 Oo0404 BR 
4225 11560 104412 $s DISPLY ,LINSB 
4230 O11564 104412 OO11Es DISPLY ‘S$CRLF 
4231 b11570 10441 6$ DISPLY ’LINSH 
4e32 01) 11 1 011407 MOVB bo] FRSTER 
4233 011602 000207 7g RTS PC 
4234 O11604 005737 O11416 8 TST LIMIT 
4235 biib19 901403 BEQ 
4236 01161 O11416 DEC LIMIT 
m4 bt tes ee 000200 O01140 9 af 15007, SUR 
4539 OLIESe B01001 Be tS 
4249 011630 000207 RTS be 
424] 011632 O10! 108 MOV RI, -(SP) 
44D D1 1634 16271 SUB #2, (SP) 
4243 011640 004737 0247 JSR PC’ PRTOCT 
4o44 011644 104412 051364 DISPLY ,LINSP 
we4S O116SO Oles46 1 MOV ob iRe) -(SP) 
4D4e b1ib5H 004 024740 JSR PC PRTOCT 
4247 O11660 104412 051364 DISPLY 
4248 O1J664 O16146 177776 MOV 23081) -(SP) 
42439 011670 004737 024740 JSR PRTOCT 
4250 O11674 04412 001165 - DISPLY PStRLr 


ee ee. 


;PRINT SAVED VALUES ” 
:8R IF NO 

SIR T ERROR” 

;BR IF N 


NOT 
sPRINT INITIAL MESSAGE INFO 
PREM REMAINDER OF MESSAGE 


;;PUSH R1 ON STACK 
;;PUSH RS ON STACK 
:DISPLAY 
:DI Y 


SAVED RS 
:PRINT INITIAL MESSAGE INFO 
sPRINT SAVED VALUES 

“CLEAR SAVED REGISTER INDICATORS 
*CLEAR THE OTHER ONE 

; ; POP STACK INTO RS 

*:POP STACK INTO RI 

;PRINT REMAINDER OF MESSAGE 


{FIRST a ? 
:BR IF 


:BR IF F RST ERROR AND PROCESSING "DCK’ ERROR 

;PRINT LINE 1 OF ERROR MESSAGE 

;DATA COMPARE ERROR 

sPRINT LINE 2 OF ERROR MESSAGE 
PRINT LINE 3A OF ERROR MESSAGE 

PRINT LINE 4 OF ERROR MESSAGE 


;HEADER MESSAGE OF PROCESSING *DCK’ ERROR 


;DISPLAY HEADER 
OEP ETRSt ERROR INDICATOR 


sRET 
;TYPEOUT LIMIT REACHED ? 
BR IF IT HAS 

; DECREMENT LIMET COUNTER 




















Eo 
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4351 011700 ooc207 . RIS PC : RETURN 
353 «GLAST LINE OF COMPARE ERROR REPORTING 
4255 011702 O0S737 O11414 ENDCMP: TST ERCTR ;SEE IF ANY ERRORS 
4 811708 Oo141 § “BR IF NOT 
ubs? O1i710 10441 7 OISPLY <LINGE : "NUMBER OF ERRORS=’ 
4258 011714 013746 011414 MOV ERCTR, -(SP) “NUMBER OF ERRORS 
4259 011720 004737 030232 JSR C, $Sbe :CONVERT IT 
4260 9011724 737 025576 JSR PC’ §SUPRS PRIN NT IT 
4261 011730 104412 OO11ES DISPLy ,S$CRLF 
“262 011734 004737 021356 ISR PC, INCTOT S ENCREMENT TOTAL ERROR COUNT 
4263 011740 004737 017622 JSR PC; LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
4264 611744 000207 18: RTS PC 
aSee 
4367 sFIND THE CORRECT PATTERN - RETURN WITH ADDRESS OF PATTERN IN RY 
uses ; RETURN +2 IF PATTERN CAN’T BE FOUND 
4270 D11746 010146 MATCH: MOV R1,-(SP) ;SAVE R1 ON THE STACK 
4271 011750 012704 900044 MOV #44 RY :PATTERN TABLE INDEX 
4272 011754 011601 1S: MOV (SP) Ri RELOAD Rl 
4273 011756 162794 oo0000e2 SUB #2, R4 :DECREMENT INDEX 
4274 011762 O1640S O42646 MOV STNDAT(R4),RS ADDRESS OF PATTERN ADDRESS 
178 O11766 O01411 BEQ 3$ sBR IF ALL PATTERNS CHECKED AND NO MATCH 
4277 011770 012703 co0dd4 MOY #4,R3 *NUMBER OF LOCATIONS TO CHECK 
4278 911774 Oe2125 2s: CMP (RL), (RS)+ *COMPARE THE BUFFER AGAINST THE PATTERN 
4279 911776 001366 BNE 1$ iBR IF NOT EQUAL, TRY NEXT PATTERN 
4280 012000 005303 DEC R3 “FINISHED CHECKING? 
4281 Ol2002 001374 BNE 2s *BR IF NOT FINISHED 
4 012004 062704 042646 ADD 8STNDAT, RY ;MAKE PATTERN ADDRESS ABSOLUTE 
4 0i2010 900403 BR 4§ sEXIT 
4284 Ole0le 062766 O00002 o00002 3s: ADD #2, 2(SP) s INCREMENT RETURN ADDRESS 
4085 Ol 012601 4§: MOV (SP)+,Ri *RESTORE Ri 
ie8b Olede2 000207 RTS PC * RETURN 
428 sUSE ECC TO CORRECT THE DATA ERROR 
i588 012024 016037 000170 O12566 ECC: MOV SRHBA(RO), ECSEC ;ADDRESS OF LAST LOCN XFERED 
429] 012032 O1604 000166 MOV SRHWC (RO), -(SP) a HORDS XFERED (2’S COMP) 
4292 012036 O66016 O000020 ADD SURDL (RO), (SP) 
4293 bied4e CLR = “= (SP) CLE NEXT STACK EB oN 
4294 012044 01 000026 MOV SSSEC(RO),-(SP) :SECT 
4295 012050 004737 Oe42c4 JSR PC, LINKDV “DIVIDE WORDS XFERED BY SECTOR SIZE 
4296 012054 005716 TST (SP) *PARTIAL SECTOR XFERED ? 
4297 012056 001413 BEQ 1$ *BR IF NOT 
4298 D1 e069 ie ASL (SP) *CONVERT INTO NUMBER OF BYTES 
4299 01 161 012566 SUB (SP) .ECSEC *SUBTRACT SECTOR RESIDUE 
4300 C1206 1 oo000s CMPB © $CODE(RO), #5 § ;WAS OP READ HEAD & DA 
4301 012074 O01 BNE 2 :BR IF NOT 
4302 012076 000010 o12566 ADD #8. ,ECSEC ADD HEADER SIZE (IN BYTES) BACK IN 
4303 Otel BR 2s :GO ADJUST THE STACK POINTER 
4304 Olel ate 001000 oO12566 1S: UB #1000,ECSEC “SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
4305 012114 062706 2s: ADD 84 "ADJUST THE STACK POINTER 
4306 012120 016037 000230 o12564 MOV SRHECI(RO),ECBIT’ ;ECC POSITION COUNT 








MAINDEC-11-DERPN-B NACYI1 27(722) 27-SEP-76 15:05 PAGE 109 
DERPNS.P1l MAIN PROGRAM 













4307 012126 012564 DEC ECBIT “ADJUST THE POSITION COUNT 
4308 Olel3e 013737 012564 012574 MOV ECBIT, ECWRD "LOAD THE WORD COUNT LOCATION 
aa Guine Gece for Ses =e HGHEAaS! ERG torre 
4311 pisice 3 sera AS Hat EL ENRE 4 Otte COUNT 
4312 012160 006237 012574 ASR ECW :C 0 BYTE COUNT 
4313 bielgy 906237 012574 ASR CWRD :CHANGE TO BYTE COUNT 
4314 O12170 104412 051000 DISPLY ,.LINIOA ERROR BURST BEGINS AT’ 
4315 012174 013746 012574 MOV ECWRD, -(SP) *PUT THE WORD COUNT ON THE STACK 
4316 012200 O06216 ASR P) *CONVERT TO WORD COUNT FOR MESSAGE 
4317 Qleede 004737 030232 ISR ,$S CONVERT THE WORD COUNT 
4318 O12206 004737 76 PC’ §SUPRS PRINT IT 
4315 Olezl2 1044le 051034 DISPLy .LINIOB :* IN DATA FIELD OF ERROR SECTOR’ 
4320 Olecl6 012566 012574 ADD ECSEC ECWRD "FIND THE BEGINNING OF THE ERROR BURST 
432} Sleced 026037 000170 012574 CMP SRHBAIRO),ECWRD ’:SEE IF BURST WAS IN DATA READ 
4322 Olee3s2 101 BHI +6 :BR IF IN DATA READ 
4323 Ole234 000137 o1255e2 IMP Ecce “NOT IN DATA READ - REPORT IT 
4324 012240 O01 32 012570 MOV SRHECE(RO) , ECMSKO *GET THE ERROR MASK 
4325 O1e246 912572 CLR CMSK1 sCLEAR THE UPPER MASK WORD 
4 Oleese 905737 012564 3S: TST ECBIT ‘BIT OFFSET EQUAL ZERO 
W358 DISSeB Bossa? O12SEN Pee eearr SBE CREMENT THE BIT OFFSET COUNT 
4329 OlecbY pees 0 ASL ECMSKO : SHIF Ne ERROR 
4330 012270 006127 012572 ROL ECMSK1 “SHIFT THE LOWER INTO THE UPPER 
433 bier 00076 BR § CONTINUE THE SHIFT 
4 Ol 01 012600 4S: MOV DECWRD,ECBADO ;SAVE THE INCORRECT WORD 
| 4333 012304 905037 1e6de CLR CWRD1 :C SECOND INCORRECT WORD ADDRESS 
4334 012310 O13746 01 MOV ECMSKO,-(SP) PUT LOWER MASK ON STACK 
| 4335 912314 047716 4 BIC DECWRD; (SP) >CLEAR ERRONEOUS ONE BITS FROM MASK 
4336 012320 043777 012570 o00246 BIC ECMSKO;dECWRD CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
| 4337 012326 052677 BIS (SP)+, dECWRD ;SET BITS 
| 4338 Olesse 005737 012572 TST ECNSK| :DOES BURST GO INIO NEXT WORD ? 
| 4339 012336 001431 BEG ECCI *BR IF BURST ONLY IN ONE WORD 
| 4340 012340 013737 012574 012602 MOV ECWRD,ECWRDI § DUPLICATE ADDRESS 
434] Olea 00 012602 ADD ge, ECHROL : INCRE ERROR ADDRESS 
| 4342 D1 509195 012602 CMP SRHBA(RO),ECWRDL’ :TS WORD IN THE BUFFER 
| 4343 012362 101003 BHI 5§ ;BR IF IT IS 
4344 012364 005037 Ol12602 CLR ECWRD1 ‘CLEAR 2ND WORD ADDRESS 
4345 012370 000414 BR ECCI *PRINT WORD CORRECTED 
| 4346 diese 017737 poge04 012606 SS: MOV JECWRO1,ECBADI i SAVE THE SECOND BAD WORD 
| 4347 Oi 1374 012572 MOV ECMSK1.-(SP) | ;PUT THE UPPER MASK ON THE STACK 
4348 012404 047716 000172 BIC DECWROI. (SP)  $CLEAR ERRONEOUS ONE BITS FROM UPPER MASK 
| 4349 Die410 3777 O1es7¢ 000164 BIC ECMSK1,SECWRD1 CLEAR ERRONEOUS ONE BITS FROM DATA WORD 
| 4350 Ole416 77 0001 BIS (SP)+,aECWRDL ;SET DROPPED BITS 
, 351 Ole42e 104412 O51 ECC]: DISPLY ,LINIOH * HE 
| 4352 O12426 013746 012574 MOV CWRD, -(SP) *PUT ECWRD ON THE STACK 
| 4353 012432 O47 32 024 ISR PRTOCT *PRINT ECWRD 
| 4354 0120436 108412 051364 DISPLY ,LINSP i SPACES 
| 4355 Ole442 013746 012600 MOV ECBADO,-(SP)  ;PUT ECBADO ON THE STACK 
1 4 Dede 004737 0 JSR. _—s- PC, PRTOCT PRINT ECBADO 
| 01 104412 051364 DISPLY ,.LINSP : 
| 4358 O1e456 017746 00112 MOV  QECWRD,-(SP)  ;PUT SECWRD ON THE STACK 
1358 Dleube 004737 beu70 ISR PC. PRTOCT ‘PRINT @ECWRD 
/ 4 1 104412 051364 DISPLY ,LINSP : 
4361 012472 005737 Oleb0e TST ECWRODL “PRINT THE NEXT WORD ? 
4262 012476 001427 BE ECCX BR IF NOT 
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4363 012500 104412 001165 DISPLY ,SCRLF :CR-LF 
4364 012504 O13746 012602 MOV ECWRD1,-(SP) PUT ECWRD1 ON THE STACK 
ey HE iene Else dito Mefegeet eeu Foe 
4 piges4 AT arae Breese MOV a -(SP) BUT ERean ON THE STACK 
4368 012524 004737 024740 JSR C,PRTOCT + BRIN NT ECBADI 
4369 012530 104412 051364 DISPLY NSP SEPACES. 
4370 O1eo4 i776 pgo042 MOV si -(SP) PUT dECWRDI ON THE STACK 
4371 Ol 004 02474 JSR TOCT ‘PRINT aJECWRDL 
4372 012544 104412 051364 DISPLY Pr INeP : SPACES 
4373 012550 BR ECCxX :EX 
4374 012552 104412 051075 ECC2: DISPLY ,LINIOC ERROR BURST WAS NOT TRANSFERED TO MEMORY 
4375 b12558 104412 OO1165 ECCX:  DISPLY ‘S$CRLF CR-LF 
4378 01 000207 RTS PC : RETURN 
4378 012564 000000 ECBIT: .WORD O sERROR BURST BIT OFFSET 
4379 O1e5b6 000000 ECSEC: <WORD 0 sERROR BURST WORD OFF 3E (RELATIVE TO SECTOR) 
4380 01 000000 ECMSKO: :WORD 0 *CORRECTION MASK FOR FIRST ERROR WORD 
4381 Oles72 000000 ECMSKI: .WCRD 0 :CORRECTION MASK FOR SECOND 
4382 012574 000000 ECWRD: 0 “LOCATION OF FIRST E 
4383 012576 000000 ECGD:. .WORO O :G00D ATA, FIRST WORD 
4384 012600 000000 Fs 0 *BAD DATA, FIRST WORD 
4385 012602 000000 ECWRDI: .WORD 0 *LOCATION OF SECOND ERROR WORD 
4386 012604 9000000 ECGD1:| :WORD 0 *GOOD DATA, SECOND WORD 
4387 012606 o00000 ECBADI: .WORD 0 ?BAD DATA, ECOND WORD 
| 4389 sROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
| 4391 012610 032737 000010 001140 PRTBAD: BIT 85H, SWR ;PRINT THE BAD SECTOR ? 
uae5 ee year i (RO), Rl sBR IF uece ADDRESS INTO 
| 4 ey Bt MOV Sree Ro)? » FEIN TH NO THE NHI oF THE "SECTOR. 
| 4395 012630 O66016 O001E6 | ADD SRHWC(RO), SP) : SUBTRAC WORDS NO 
| 4396 012634 OOSO46 CLR (SP) aNd poet a a= 
| 4397 012636 D104 000026 MOV SSSEC(RO),-(SP) ':DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE 
| 4398 Oles42 004 024224 JSR PC, LINKDV sBIVI 
| 4399 01264 005716 TST = (SP) SREMANOER = 0 7 
| dapr piseee boeste Bert) EONERT THE RESIDUAL SECTOR cIZE INTO BYTE COUNT 
| dupe Mead sty SUS (SP) Ri ION TRACT TT ER SE END END ADDRESS 
| S403 012656 000410 BR 2s *FINISH THE SIZING 
| 4404 012560 162701 001 1$ SUB $1000, R1: ; SUBTRACT F FULL SECTOR SIZE FROM END ADDR 
4490S 012664 126027 rienced ooco0s CMPB  S$CODELRO),#S | ;WAS OPERATION READ HEADER & DATA ? 
| que Ol2b7e 001002 BNE 25 iBR_IF NOT 
4407 Ole674 162701 000010 SUB #10,R1 *SUBTRACK HEADER SIZE FROM ADDR 
| 4408 012700 000004 2s: ADD #4, SP jRESTORE THE STACK POINTER 
' 4409 012704 1044 1267 DISPLY ,LINIIH ;PRINT T 
| 4410 012710 Ta7h8 anti 3S: MOV 47 Re Re "CONTAING THE WORDS/LINE COUNT 
4411 012714 010146 MOV R1;-(SP) *PUT THE ADDRESS ON THE STACK 
est ierig 004737 02474 JSR PC; PRTOCT PRINT ay 
| 4413 OL 120160 0001 4§: CMP Ri, SRHBA(RO) PRINT ALL THE SECTOR ? 
| 4414 012725 00141 BEQ og *BR IF ALL PRINTED 
441s 12730 104412 051364 DISPLY .LINSP : SPACES 
| 4416 012734 012146 MOV {R1)+.-(SP) “PUT THE DATA ON THE STACK 
| 4417 012736 004737 024740 JSR PC, PRTOCT : PRINT 
| 4418 Ole742 005302 ‘DECREMENT THE HORIZONTAL COUNT 
' 
| 













pe a {-DERPN SS TN PRO 


4419 012744 001366 
44 





4 

ae2s 

4acb 

oe ee je 

4429 pisses 004037 

4430 013000 041526 

4431 013002 000000 

4432 013004 9000207 

4433 

seis 

SHEE 

4436 

4437 

<3 ae WE 

Y44G Bt hos03? 

4441 013024 041526 

4442 013026 000000 

4443 013030 005737 

4444 013034 001775 

4445 013036 000207 

HSuE 

4447 

aia! s] 

4449 013040 111037 

4450 013044 112737 

4451 0i30S2 004037 

4452 013056 041526 

4453 013060 000000 

4454 013062 000207 

4455 

3855 

4457 

4458 

4459 013064 116637 

4460 013072 116637 

4461 eho Aes 
wes Bist 1803 

4464 013120 004037 

S4ES pisigs 1 

4466 0131 

4467 013130 005737 
| 4468 013134 001775 
| 4469 013136 012666 
| 4470 Rist as 005726 
| 4471 013144 000207 
| 


MACY11 


001165 
001165 


041 
000 
031 


Sab 
117 
442 


041530 


041530 


041530 


041537 
041536 


Oui830 
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BNE 4g :BR IF NOT AT THE END OF THE LINE 
DISPLY CRLF CR <br 

B "RESTORE THE WORDS/LINE COUNT 
S$: DISPLY | SCRLF ‘PRINT WHAT REMAINS IN THE SUFFER 
&$: RTS pc : RETURN 
sROUTINE TO DO AN RTC = UNIT SELECTED IN RO 


RTNCTR: MOVB = (RO), GENDPB >MOVE THE UNIT # TO THE GENERAL DPS 
MOVB § #RTC:GENDPB+SCOMND ;COMMAND CODE 
















RO, RPOY ;DRIVER ENTRANCE 
:DPB ADDRESS FOR ORDER 
HALT ‘DRIVER DIDN’T ACCEPT ORDER 
RTS PC : RETURN 


;ROUTINE TO DO A_RECALISRATE - UNIT SELECTED IN RO 
sGNTER ‘oper IF UNIT NUMBER ALREADY LOADED 


RECALT: MOVB NOPB “MOVE THE UNIT # TO THE GENERAL DPB 
RECALO: MOVB (RecA GENDPB+SCOMND *RELCALIBRATE COMMAND 

JSR RO, RPO4 DRIVER ENTRANCE 

SENOPB OP ADDRESS FOR ORDER 

HALT ‘DRIVER DIDN’T ACCEPT THE ORDER 
1$: TST GENDPB+S$TATUS *SEE IF FINISHED 

BEQ 1$ -BR IF NOT FINISHED 

RTS PC : RETURN 


;OFFSET THE UNIT IN RO (OFFSET CODE PRELOADED) 


OFFST: MOVB § (RO),GENDPB “UNIT # TO GENERAL DPB 
MOVB OFFSET, GENDPB+ +SCOMND 


RO, RPOY’ SRI VER EN ANCE 
i OR EroRtse FOR ORDER 
HALT te :DRIVER DIDN’T ACCEPT ORDER 


;UTILITY READ HEADER ROUTINE 
; ENTER WITH TRACK AND SECTOR ADDRS ON THE STACK 


READHD: MOVB 2(SP),GENDPB+STRK ; TRACK ADDRESS 
MOVB 4(SP) , GENDPB+SSEC ‘SECTOR ADDRESS 


GENDPB ;DPB ADDRESS FOR ORDER 
HALT ;DRIVER DIDN'T ACCEPT COMMAND 
1S: TST GENDPB+STATUS ;FINI 
BEQ 1$ sBR I ADT 
(SP)+,2(SP) sADJUST STACK FOR RETURN 
TST (SP)+ 
RTS PC ;RETURN 


—— THE PRESENT OPERATION 
RETURN IF RETRY UNSUCESSFUL 













| 
| 
| 
| 
| 
| 
| 
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4476 

4477 

4478 013146 
4479 013152 
4480 013156 
4481 ettes 
“482 013162 
4483 pt 3168 
4484 0131 
4485 013174 
4486 Ol3e0e 
4487 013204 
4488 O13e10 
4489 Ql3ele 
4490 013216 
ma pi seey 
4483 013690 
4494 013232 
4495 013236 
4495 Olse4e 
4497 013244 
4498 fiscos 
4500 013e56 
450i 013260 
4502 Ol3ebe 
4503 013266 
4504 

4505 

4506 

4507 013272 
4508 Ol3e7e 
4509 013274 
4510 013276 
4511 013300 
4512 01330e 
4513 013306 
4514 O133le 
4515 013314 
4516 013316 
4517 013320 
4518 O133e4 
4519 013330 
4520 01333e 
4521 013336 
4522 Bisa 
45e3 01334 
45e4 013344 
4525 013346 
4526 

4527 

4528 

4Se9 013350 
4530 013356 


paces -DERPN-8 
DERPNB.P 





MAIN PROGRAM 


~j 
Ww 
os) 


ee 
ag 


Re 


i 
eo 


os 


a 
BB 


ee 


001341 


ce 


BY 
is 


Se 


3 


Gsse 


eee 271722) 27-SEP-76 15:05 PAGE lle 


; RETURN+2 IF RETRY SUCESSFUL 
: RETURN TO MAIN PROGRAM IF DIFFERENT ERROR OCCURS 
014340 RETRY: JSR PC, GODRIV Se ORDER 
000016 1S: is! STATUS(RO) 0 ER FINIS D? 
QM 
oo0022 ite SeeTey (RO) FE Eran RETRY COUNT 
000002 B00 te, (SP) s NCREME MENT RETURN 
000200 O90016 2s: BIT #B1T7,STATUS(RO)’ ;DID ORDER TERMINATE NORMALLY 7? 
BEQ 7§ :BR IF NOT 
ooo024 ist SMASK(RO) ils ERROR MASK 0 ? 
000200 ist SHERI (RO) ert SURE THAT THE DRIVE ERROR REG IS CLEAR 
BR 4§ ONTINUE TRETRY 
oo00024 oo0200 3s: BIT $MASK(RO), sRHERIIROD -SAME ERROR? 
BEQ 6$ BR IF Not 
ooon2e 4§: INCB S$RETRY(RO) ? INCREMENT RETRY 
900023 DECB SRETRY+1 (RO) :DECREMENT RETRY eeetT 
BNE RETR *BR IF NOT DONE 
S$: RTS PC * RETURN 
020070 6S: JSR PC, LINES : REPORT DIFFERENT ERROR 
017622 JSR PC LINE? :PRINT LINE 7 
rer (SP)+ Pew STACK POINTER FOR DIRECT RETURN 
050537 73: DISPLY ,.LINSM DIFFERENT ERROR DURING RETRY’ 
004560 IMP ERPRC1 *REPORT THE ERROR 
sROUTINE TO CLEAR THE DPB FOR THE ASSIGNED UNIT 
CLROPB: 
R3,-(SP) ;PUSH R3 ON STACK 
MOV RY; -(SP) tpusH R4Y ON STACK 
MOV RS, -(SP) +e RS ON STACK 
MOV RO,R4 2 GET 
poo002 ADD #2;R4 "ADDRESS OF FIRST LOCN TO BE CLEARED 
000005 MOV #5,R3 : LOCNS 
CLR (R4)+ ;CLEAR THE LOCN 
DEC R3 ; DECRENENT HE LOCN COUNTER 
BNE 4 *BR IF NOT FINISHED 
oo0002 ADD #2,.R4 *MOVE THE ADDRESS PAST THE ’REG’ ADDR 
000220 HOV aSHHIECO+2-SREG, Re R3 a j NUMBER OF LOCNS TO BE CLEARED 
oooo0e2 SUB #2,R3 : DECREMENT THE LOCN COUNTER 
BNE 6 *BR IF NOT FINISHED 
MOV (SP)+,RS POP STACK INTO RS 
MOV (SP)+/R4 *:POP STACK INTO RY 
HOV (SP)+,R3 *:POP STACK INTO R3 


;ROUTINE TO UPDATE THE GENERAL STATISTICS FOR THE DRIVE IN RO 


000170 013502 STATIS: MOV SRHBA(RO), FACTOR ;STORE THE FINAL BUFFER ADDRESS 
oc0008 013502 SUB SBUF(RO),FACTOR ;SUBTRACT THE INITIAL ADDRESS 
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: .WORD O ;USED FOR WORDS TRANSFERED 
;ROUTINE TO GET A BUFFER 


#2; BUF TBL ;SEE HOW MANY BUFFER BLOCKS ARE IN TABLE , 
+4 -BR IF NOT MORE THAN 2 ; 
:CHANGE TO HALT FOR DEBUGGING 
BUF TBL, Re ;NUMBER OF SEPARATE BUFFERS 
=S :BR IF NONE AVAILABLE 
#BUFTBL+2, RI sEIRST ADDRESS OF ALLOCATION TABLE 
SWRDOL(RO),2(R1) ;SEE IF IS A BLOCK LARGE ENOUGH 
3$ ; BRANCH TF qT IS ieee 
= BR fF THROUGH ROUGH TABLE 
#4,R1 ; INCREMENT TABLE POINTER 
I$, : CONT LOOKING 
)+,R1 REST RI 
5 










BR IF NO DATA TRANSFER 
FACTOR “CONVERT TO A WORD COUNT 
FACTOR R, STRANS(RO) ‘UPDATE WORD COUNT 


tiTOl, SCODE(RO) ;SEE IF ORDER READ OR WRITE 
sBRANCH IF ORDER WRITE 
AUTOCK 8 UTO WRITE CHECKS BEING PERFORMED 
SCODE(RO), fl ‘PRE NT OPERATION AN AUTOMATIC WRITE CHECK ? 
SWRDL (RO), STRANSERO) ADD WORDS WRITTEN 

STRANS+2(RO) __ s ADD_A’ CARRY 

ERCTOR SREAD(RO)’ ;UPDATE THE READ WORD COUNT 

SCYL(RO)., SRHCA(RO) ;DID NID-TRANSFER SEEK OCCUR 


:BR IF 
#1,SPOSIT(RO)  ;INCREMENT SEEK COUNT 
sPOsIT+e( (RO) ADD CARRY TO UPPER WORD 





R1,-(SP) ;SAVE RI 


(R1),4(SP) ;BUFFER ADDRESS TO STACK 





SuROL (RO), 2(R1) ;ADJUST BUFFER SIZE 

*BR IF DIFFERENCE IS ZERO 
SPR DL(RO) ;CONVERT # WORDS 10 BYTES 
SWROL(RO),(R1) MAKE NEW STARTING ADDRESS 
SURDL (RO) jRETURN # BYTES TO WORDS 
BUF TBL t DECREMENT ENTRIES COUNT 
S$ *BR IF ALLOCATION TABLE EMPTY 
R2 : MENT T 
c§ *BR IF ITEM WERE LAST ENTRY 
R1,R3 : ABLE ER 
(an (R1)+ MOVE. ITEMS oe 
(R3)+, (R1)+ 
R2 sDECREMENT TABLE COUNT 
6$ ‘CONTINUE IF NOT AT END OF TABLE 
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4587 013642 000744 BR S$ s RETURN 
4589 
4530 2 sROUTINE TO PUT BUFFER BACK IN TABLE 
dees 013644 010146 , RELBUF: MOV R1,-(SP) E RI 
4593 013646 912701 O42004 MOV abUFTBL 42, RI ‘Be i NG ea TABLE 
Hoa O13bbe 013705 o42002 MOV BUF TBL,Re’ re Y cou 
1 14 BEQ IF SPTY Y TABLE 
4596 013660 016003 o00020 MOV SWROL(RO),R3 ;TRIAL Al. _ADDRESS 
4597 013664 ASL R3 ; CHANGE TO BYTE COUN 
Sa tee re mg, ESS RE uno Bm 
4600 013674 001432 . BEQ ug’ BR IF YES 
4601 013676 062701 OO00004 ADD #4,R1 INCREMENT POINTER 
oe ee tee fe atte seca 
4604 013706 O16011 0000 MOV SBUF (RO), (RL) ‘PUT THE BUFFER BLOCK INTO THE TA 
4680S 013712 016061 900020 oo0002 MOV SWROL(ROS,2(R1) ° sie ~— oe 
4606 013720 005237 O4eC0e INC BUF TBL s INCREMENT ENT ENTRY COUNT 
4607 013724 005202 INC Re INCREMENT Re FOR USE LATER 
4608 013766 donde ae BR 3s aor ines See I IF A LOWER ADJ ADJACENT BLOCK IS IN THE TABLE 
Wet TRE Dede! ppo0e8 vane : MOV SWROL (RO), (R1)+ + eroE. TO TABLE 
4611 013740 o42002 INC BUF TBL j INCREMENT EN ENTRY C 
Wet Bt aee2 103001 eeenape tonne) Lag SHES » arphonn: BE IE NOT HO NORE THAN a. 
4614 013754 NOP : “DEBUGGING AID 
4615 913756 012601 MOV (SP)+,R1 RESTORE RI 
Wet ees Beat! poro06 4g Sov SBUF (RO), (RL) RELEASED BUFFER IS LOWER ADJACENT 
4618 013766 066061 000020 ocoo0e ADD SWROL(RO},2(R1) ; INCREMENTED SIZE 
4619 013774 010246 SS: MOV R2,-(SP) : Re 
4620 013776 013702 o42002 MOV BUF TBL, Re “ENTRY COUNT 
4621 O14002 012705 o42004 MOV #BUFTBL+2,RS  ;BEGINNING OF TABLE 
ueSs OLuDI Ooesee Oe wo a BL ONGE TO BYTE COUNT. 
4624 Bt apiS 1504 ADD (RS) RY *ADD BLOCK BEGI 
ueoe piunen poid0e a oe RR ERADIACENT IN TALE’ 
4627 O1Ndee 062705 000004 ROD a4, RS j INCREMENT POINT 
Mas stn ie BNE 6$ *CONTINUE LOOKING 
WE : artic oar eee ae if ” sRESTORE oo 
4632 014036 Ol2602 8S: MOV (SP)+,R2 PRESTORE R2 
4633 O14040 066165 gogag2 oooo02 RD (RL), €¢RS) j INCREMENT LOWER BLOCK LENGTH 
Wea biuoss nates — MOV R1,RS GET READY v ¥ COMPRESS 
4636 O14054 062705 O00004 ADD #4°R5 INCREMENT TO NEXT ENTRY 
4637 O14060 beset 9S: MOV (RS)+, (RL)+ ; COMPRES T 
4638 O01 12521 MOV (R5)+; (R1)+ *MOVE SIZE FIELD DOWN 
a Gee Brn ee ei or Fined 
4641 014070 000725 BR 3$ *FINISHED 
4642 
L 





r 
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4543 
Ho44 :FILL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER) 
uB46 014072 O26027 O00006 OS36S54 FILBUF: CMP SBUF(RO),#ENOPGM | ;MAKE SURE BUFFER IS ABOVE PROGRAM 
4647 014100 103002 BHIS .46 
4648 014102 O00000 HALT BUFFER ADDRESS WITHIN PROGRAM, ILLEGAL 
4649 O14104 900776 SR .-2 : INTERLOC 
4650 014106 023760 001300 op0020 CMP MAXDL,SWROL(RO) ’;SEE IF KORE LENGTH DOESN’T EXCEED MAXIMUM 
dees OE OD me OUT BR F ENT “£08 OPERATION GREATER THAN AVAIL MEM 
wees Bidtde Booo?e BR -2 UATERLOCK THE HALT 
4654 Ol4l2e2 132760 o00004 900030 BITB  #BITO2,$CODE(RO)’ ;SEE iF READ ORDER 
4655 014130 OO1401 BEQ 1$ :BR IF WRITE 
apes Biatsa prego, 0000 1S foe Kos oF ‘OFFER FER 
4658 Bt atag Bteone popos8 MOV SWRDOL(ROS,R2 POSITIVE WORD COUNT 
4659 O14144 132760 000001 000030 BITB  #BITOO,$CODE(RO)’ ;SEE IF WRITE HEADER TYPE ORDER 
4660 014152 001413 BEQ 2$ IF NOT 
4661 014154 016011 12 MOV SCYL(RO), (RL) ic YLINDER ADDRESS 
4662 014160 052721 010000 BIS eBITI2,(R1)+ 3SET FiTee BIT 
4663 O14164 016021 10 MOV $SEC(RO),(R1)+ MOVE SECTOR & TRACK 
4664 014170 005021 CLR (R1)+ >CLEAR FIRST fey WORD 
4665 014172 005021 (R1)+ *CLEAR THE SECOND 
eer lus bees nr nnn 
4668 Ot Sp 2s: BLE éM 
4669 o14e04 O04 000034 nove SPATTC(RO), RY RELATIVE PATTERN ADDRESS 
uea st 19 nytt 042646 are nr RS ‘PATTERN ADDRE 
4672 O14216 O01 000020 MOV #20,R TERN COUNT 
4673 O1vcee 012521 3S: MOV (RSS+, (R1)+ ethene PATTERN RN INTO TH THE BUFFER 
4674 014 005302 DEC Re 
4675 014226 001407 BEG 4§ “BR IF BONE. HE ORD COUNT = 0) 
4676 014230 005303 DEC R3 ; DECREMENT THE PATTERN COUNT 
4677 014232 001373 38 R IF MORE PATTERN 
4678 014234 012703 RESTORE PATTERN COUNT 
4679 O14S40 O1640S O42646 MOV Sint cr), RS ;REST ORE T Ss 
4680 014244 000766 BR *CONTINUE DISTRIBUTING THE PATTERN 
4681 014246 000207 4$: RTS Be *RE 
4682 O14 132760 ooo002 000030 SS: BITB § #BITO1,S$CODE(RO)’ ;WRITE CHECK ORDER ? 
4683 O14 I 6$ BR IF NO 
4684 014260 016037 000076 027736 MOV $RSAV(RO),SLONUM’ ;REST ORE THE RANDOM NUMBERS 
4685S 014266 016037 000100 027734 MOV $RSAV+2(RO),SHINUM ;T0 RECREATE THE WRITE CHECK BUFFER 
4686 014274 OO0410 BR 75 sFILC THE WRITE CHECK BUFFER 
| 4687 014276 004737 027636 6S: JSR PC, SRAND GET TWO RANDOM 
4688 014302 013760 027736 MOV , (RO)’ ;SAVE THE RANDOM NUMBE! 
4689 014310 013760 027734 000100 MOV SHINUM, SRSAV+2 (RO 
4690 O14316 01 027736 73: MOV SLONUM,(R1)+  ;PUT FIRST WORD IN BUFFER 
4691 O14 DEC Re 
4692 014324 001 BEQ 4§ sBR IE DONE | 
4693 014326 013721 027734 MOV SHINUM,(R1)+  ;PUT SECOND WORD IN BUFFER oT 
4694 014332 005302 DEC Re DEC WORD COUN 
4695 014334 001744 4§ *BR IF DONE 
| 436 014336 000757 6$ 
| 4698 ;START THE ORDER FOR THE DPB IN RO 
| 



















MACY11 27(722) 
N PROGRAM 


27-SEP-76 15:05 PAGE 116 





tT oe oe 
DERPNS.P11 MAIN 


GODRIV: MOV RO, -(SP) sSAVE_RO 
014352 MOV RO; 1$ ‘CURRENT DPB ADDRESS 
031442 = ISR RO, RPO4 “i ton van 
: HALT ibe Tee RESECTED AE ouest 
















000001 ooc042 ADD #1, SOPERC(RO) i RCRENENT- THE OPERATION COUNT 
00004 ADC SOPERC+2(RO) 
oo40 oo0o1e2 CP SEREVEtE(RO) SCL (RO) sDID ORDER REQUIRE A CYLINDER CHANGE 
000001 900046 ADD #1, $POSIT(RO) j INCREMENT SEEK COUNT 
000050 - adc SPOSIT#E(RO) ADD ANY CARRY 





;GENERATE PARAMETERS FOR THE OPERATION 





















027636 SELPAR: JSR PC, SRAND CYCLE THE RANDOM NUMBER GENERATOR 
900001 001140 BIT #StI0, SWR -SEE IF SWO SET 
BNE 2 *BR IF SET = READ ONLY 
2705 000010 1$: MOV #10,RS *READ/WRITE SELECTION DIVISOR 
024176 JSR PC, GETREM GET SELECTION V 
001314 CMP RS; RATIO *DETERMINE IF READ OR WRITE 
BGT 2g ;BR IF READ 
014772 PC, RANWRT SELECT A WRITE ORDER 
BR 3 *CONTINUE WITH THE SELECTION 
2S: MOV SLONUM, RS >SELECT READ OPERATION CODE 
177776 BIC #701, R5 ; MASK OUT ALL BUT BIT 
000004 ADD #4, RS ‘TABLE OFFSET FOR READ CODE 
000102 3S: MOVB RS;SNCODE(RO) ORDER SELECTION CODE TO CONTROL BLOCK 


;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES ’MINSEC’ & ’MAXSEC’ 
MOV MAXSEC,RS ;GET MAXIMUM SECTOR ADDRESS 





= 
oe 
2 
8 
2 


01 , 
4 Oi¥sde 163708 001336 SUB NINSEC, RS *SUBTRACT MINIMUM SECTOR ADDRESS 
ne 
47 ft 1 nie PF fe sR IE 5 ee ReNtE Toe TO USE AS DIVISOR 
4736 014512 004737 024176 JSR PC, GETREM GET THE RANDOM AUGMENT 
4737 O14516 001336 4S: ADD MINSEC, RS “CONVERT TO ADDRESS 
4738 014522 110560 000104 MOVB RS,SNSEC(RO) | ;STORE SECTOR ADDRESS IN DPB 
WH GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ’MINTRK’ & *MAXTRK’ 
| W742 O1G2 613705 001330 MOV MAXTRK, RS ;GET MAXIMUM TRACK ADDRESS 
4743 O14532 163705 001332 SUB MINTRK,RS j SUBTRACT MINIMUM TRACK ADDRESS 
4744 014536 001403 BEQ S$ *BR IF MIN & MAX THE SAME 
| 4745 014540 005205 INC RS ; INCREMENT DIFFERENCE TO USE AS DIVISOR 
4748 014542 004737 024176 ISR PC, GETREM T THE R 
| 4747 O14546 063705 001332 S$: ADD MINTRK,RS CONVERT BOCHENT . TO aN ABORESS 
po: 0145S2e 110560 ood10s MOV8  RS,SNTRK(RO)  ;STORE TRACK ADDRESS IN DPB 
4750 GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES *MINCYL’ & *MAXCYL’ 
| W752 O14SS6 013705 001324 MOV MAXCYL, RS GET MAXIMUM CYLINDER ADDRESS 
| 4753 014562 163705 001326 SUB MINCYL|RS ‘SUBTRACT MINIMUM CYLINDER ADDRESS 
| S754 014566 001403 BEQ 6$ *BR IF MIN & MAX THE SAME 
| 
} 
aay 
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INC RS s INCREMENT DIFFERENCE TO USE AS DIVISOR 
JSR FC age TREn :GET THE RANDOM uGH EN 
i NOV R SNEH (RO) s CONVER ain ab ese th BP 
cre if ee (ro. i te Heh beh BR Ate 7 
GENERATE A RANDOM BUFFER oan BETWEEN 4 & THE VALUE IN ’MAXDL’ 
7$: MOV MAXDL , RS - 3GET BUFFER SIZE 
NC Re iif CREMENT THE MAXIMUM SIZE 
SR PC, GETREM IVIDE BY MAX VALUE 
TST RS 1S THE REMAINDER O ? 
BNE 8$ *NOT 0, CONTINUE 
ISR PC, SRAND *CYCLE’ THE RANDOM NUMBER GENERATOR 
BR ? ‘TRY AGAIN 
8S: MOV RS, SNUROL (RO) :WORD LENGTH TO CONTROL BLOCK 
MOV RS, (SP) iNEW WORD LENGTH ON STACK FOR CHECK 
CLR (SP) MAKE UPPER DIVIDEND ZERO 
MOV Web. -(SP) ISECTOR SIZE IS THE DIVISOR 
BITB phere” SEE IF next ORDER IS A READER ORDER 
ADD (SP) "ADD HEADER SIZE TO SECTOR SIZE 
JSR Le LINKDV ‘DIVIDE BUFFER SIZE BY SECTOR SIZE 
MOV (SP)+, (SP) *MOV REMAINDER UP THE STACK 
CHP (SP)+, #4 sSEE IF REMAINDER LESS THAN 4 
ISR PC, SRAND “CYCLE THE RANDOM NUMBER GENERATOR 
BR 7§ TRY AGAIN 
9S: CMPB  #2,S$NCODE(RO)  :SEE IF WRITE DATA 
BNE 12% :BR ae NOT WRITE DATA 
BR 11 :GET PATTERN 


;SETUP BUFFER SIZE FOR A WRITE HEADER AND DATA ORDER 


10$: MOV #260. ,SNWRDL(RO) ;CHANGE WORD LENGTH TO 260 FOR WRTHD ORDER 
CMP MAXDL; #260. CAN A FULL SECTOR BE WRITTEN 


;BR IF IT C 
MOV MAXDL SNUROL (RO) ' ;CHANGE TRANSFER SIZE 


11$: JSR sGET CODE 
MOVB = RS SNPATC(RO) ‘MOVE PATTERN CODE TO CONTROL BLOCK 
128: Hoy el, SNEXT (RO) SET ET PARANE TERS SELECTED INDICATOR 
;ROUTINE TO SELECT A WRITE (OR ae CHECK) OPERATION 
RANWRT: MOV #4,R5 ;WRITE OPERATION SELECTION DIVISOR 
JSR pc? GETREN *GET SELECTION CODE 
TST autoE j ARE WRITE CHECK ORDERS TO BE SELECTED 
BEQ 1$ 'BR IF GHEY ARE 
BISB #2, RS SET CODE TO EXCLUDE WRITE CHECK ORDERS 
BR *COMPLETE SELECTION 
1S: CHP RS, #1 ;HRITE CHECK SELECTED ? 


I 
BITB #2, SCODE (RO) ‘PREVIOUS WRITE OPERATION ? 
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4811 015032 001407 BEQ R IF PREVIOUS WAS READ_OR WRITE CHECK 
ae EE T e080 000030 oo0192 abe Fone cro) svcone D> ition okRe si FER Robe 
4813 15082 e760 ooood2 090102 BIC #2, $NCODE (RO) Py & WRITE TO WRITE CHECK 

a 
‘Bis bieee rete oooone2 23: BR ‘CHANGE WRITE CHECK TO WRITE 
4816 60150 737 001310 33: TST PeANaT ‘WRITE HEADER ORDERS ALLOWED ” 
4817 ot 901902 NE 4g :BR_IF THEY BRE 
ysis o15064 042705 o00001 IC #1,RS SALTER POSSIBL WRITE HEADER 
4819 015070 110560 000102 4g: MOVB  RS.$NCODE(RO) :SETUP ’NEXT’ CODE 
4320 15074 60026 cs: RTS PC :RETURN 
ise ;ROUTINE TO SELECT A PATTERN 
4824 015076 012705 000020 GETPAT: MOV #20,RS SELECT PATTERN 
4825 015102 004737 024176 ISR PC, GETREM GET CO 
4826 015106 005705 TST RS {WAS PATTERN ZERO SELECTED 7 
4827 015110 001003 BNE 1$ :BR IF NOT ZERO 
482g 015112 004737 027636 ISR PC, SRAND CYCLE THE RANDOM NUMBER GENERATOR 
4829 015116 000767 BR GETPAT : TRY 
4830 015120 096305 18: ASL RS "MAKE CODE INTO TABLE INDEX 
4g31 O1Si2e2 000207 RTS PC 
4833 ;ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 
483S 015124 010546 GETPAR: MOV RS 
4826 015126 116060 000030 000032 MOVB SeO0E TRO) sprevoleay” - SAVE 1 CUBBENT PARAMETERS 
4837 015134 032760 000006 000102 BIT #5,SNCODE(RO)  ;SEE IF NEXT OPERATION IS READ OR WRITE 
4838 015142 001007 BNE is’ *BR IF EITHER 
4839 O15144 O16060 oOD0012 oDD040 MOV SCYL(RO),$PREVA+2(RO) _;SAVE STARTING CYLINDER 
4840 015152 016060 000010 000036 MOV $SEC(RO),$PREVA(RO) ;SAVE STARTING SECTOR AND TRACK 
4841 015160 0040S BR eS 
yB42 015162 004737 015624 1S: JSR VST sSAVE CURRENT SECTOR & TRACK 
4843 O15166 O16060 O00222 oo0040 MOV SRACCTROD, SPREVA+2 (RO) j CURRENT CYLINDER 
4B44 015174 032737 OO0100 OO1140 2S: BIT #SWO6, SWR’ ; SWITCH & SET 
yB4s 015202 001043 BNE 
4846 015204 116060 000102 000030 MOVE  $NCODE(RO), scone ta» ;LOGICAL CODE FOR OPERATION 
4847 O15212 116005 000102 MOVB  $NCODE(RO);RS AD RS FOR USE AS TABLE INDEX 
ye48 O15216 116560 O42144 oD0002 MOVB  COMTBL(RS), SeonndcR aa RPO COMMAND CODE 
4849 015224 116060 000103 000034 MOVB § $NPATC(RO) ,SPATIC(RO) TTERN CODE 
4850 015232 O16060 000104 o00010 MOV SNSEC(RO) ), SSEC (RO RO) TRACK AND SECTOR ADDRESSES 
4851 015240 016060 O00106 o0001e MOV SNCYL(RO).SCYL(RO) CYLINDER ADDRESS 
ueS2 015046 016060 000110 o00020 MOV SNWROL (ROS, SURO RO)” ;BUFFER SIZE 
4e53 015254 O1b060 000110 oo0004 MOV SNWRDL(RO);SWROM(RO) :WORD COUNT FOR THE RH11 

| 4e54 015262 O0S4E0 NEG  SWRDM(RO) ;COMPL 
yess 015266 012760 O00400 on0026 MOV #256. SSSEC(RO) ;INITIAL VALUE OF SECTOR SIZE 
4856 015274 032760 000001 000030 BIT #1,$CODE(RO)  ;HEADER OPERATION 
4857 015302 001403 BEQ 3$ BR IF NOT 
yess O15304 062760 CO0004 oD0026 ADD #4,SSSEC(RO) | 3ADD HEADER SIZE 
4859 0153i2 O0S5060 O0011e 38: CLR SNEXT (RO) "RESET 'PARAMETERS LOADED’ INDICATOR 

| 4860 O15316 012605 MOV (SP)+,R5 RESTORE RS 

| Heb] 015320 RTS PC * RETURN 

Heb3 ROUTINE TO COMPRESS THE TABLE IN Rl 
4B65 015322 O16111 ooco02 CMPRES: MOV 2(R1), (RL) ;COMPRESS THE TABLE IN RI 
4866 015326 001403 BEQ 1$ *BR WHEN ZERO FOUND 








_— 
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MAIN PROGRAM 
4867 0153 701 o00C0 avd 82,81 sINCSEMENT RI : 
4868 aeee peat BR cMPRES ;CONTINUE COMPRESSING TABLE 
453 615336 900207 1$: RTS Bc : RETURN 
473 :ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
4873 15340 904737 O27636 WRIPK: JSR PC, SRAND “CYCLE THE RANDOM NUMBER GENERATOR 
were o Bpropy Oooo te eRe ee eee ten NOT ZERO 
4875 pt ese 955760 oo0o42 TST SOPERC(RO) ‘LOWER WORD ZERO ? 
4877 915356 001904 BNE WRTPK1 :BR IF NOT 1ST OPERATION 
4878 015360 105760 000031 TSTB © SPACK(RC) :SEE WHICH - ’R’ OR Wi 
4875 915364 1004 I WRIPK3 ‘BR IF °W’ 
4889 615366 OO0464 BR WRTPK2 :*R’ OPERATION 
4881 015370 116060 000030 O00032 WRTIPKI1: MOVE  S$CCDE(RO),SPREVO(RO) -SAVE CURRENT PARAMETERS 
4882 015376 O04 015624 JSR PC PREVST : SAVE SECTOR & TRACK 
4883 015402 0160680 900222 0 MOV SRHCC(RO),SPREVA+2(RO) ;CURRENT CYLINDE 
Meee BISHIe SieoED podeee DOooTS HOY SRHRALCEDD SECLARG) INEM EGLINGER ADDRESS 
4886 pt eyie BBepeS enats 001324 CMP SCYL(RO) , MAX -SEt IF AT iD 
4887 gi¥ae 103427 BLO 2$ :BR IF LESS THAN ’MAXCYL’ 
uses 015434 101004 BHI 1$ :BR RIF GREATER THAN ’MAXCYL’ 
4889 015436 126037 000011 001330 CMPB = STRK(RO),MAXTRK ":SEE IF AT MAX 
4890 O15444 101422 BLOS 2% ;BR IF NOT GREATER 
4891 O1S446 113760 001332 900011 1S: MOVB - MINTRK,STRK(RO) ';RESET TRACK ADDRESS 
4B92  O15us4 11 001336 900010 MOVE  MINSEC;$SEC(RO) RESET SECTOR ADDRESS 
4893 015462 013769 001 000012 MOV MINCYL,S$CYL(RO) :RESET CYLINDER ADDRESS 
4894 915470 004737 J PC, NRMLE :OROP THE UNIT (NORMAL TERMINATION) 
42895 pis 032737 000020 001140 BIT sS04, SUR 1S SWITCH 4 SET ? 
weg, 015502 001003 BNE 2s *BR IF SET 
4897 O15504 005726 TST (SP)+ s INCREMENT THE STACK POINTER 
ee HEE Be) ES comes os, Ry REM guousgms “huetR ei TS nce 
es e 
4300 pieese BSED caked Bpps84 MOV MAXDL’ SWROM(RO) :WORD fount 
120 b155e8 oos4e0 bO0004 NEG SURO RO) ; CHANGE WORD COUNT TO 2°S COMPLEMENT 
4903 pt ease he _— BMI A Tek BR TE Rat te 
4804 015540 012760 OO00404 000026 WRTPK2: MOV $260. .SSSEC(RO) '-SECTOR SIZE FOR READ 
4995 O15546 116769 9000s 00030 MO 8S,SCODE(RO) _ ;CODE FOR READ HEADER & DATA 
4906 915554 11 173 000002 HOVE #ROHD, SCOMND(RO)” :DRIVE CODE FOR OPERATION 
4907 O15562 Oo0415 BR WRTPKS :SET UP FOR EXIT 
4998 p155e4 tere O00400 (90026 WRTPK3: MOV aeSb. SSSEC(RO) i SECTOR oe ce par 
4516 bt eea5 il eres eae Hove ) SCOMND(RO) _;OP CODE 
4911 CISE06 004737 015076 JSR PC, GETPAT GET PATTERN CODE 
4912 015612 110560 000034 MOVB RS.SPATTC(RO) PATTERN CODE 
4913 015616 O0S060 O00l1l2 WRTPK4Y: CLR SNEXT (RO) *CLEAR "PARAMETER SELECTED’ INDICATOR 
4318 0iSbee RTS PC * RETURN 
wai ;DECREMENT AND SAVE CURRENT SECTOR & TRACK ADDRESS 
4918 OC1S624 oOsO4S PREVST: CLR -(SP) ;MAKE ROOM ON THE STACK 
4919 b15beb OOSO46 €LR - “MAKE ROOM ON THE STACK 
4920 015630 004737 020124 JSR PC READDR *DECREMENT SECTOR-TRACK ADDRESS 
4321 015634 112660 990037 MOVB (SP )4,$PREVA+1(RO) ;SAVE CURRENT TRACK 
4922 015640 !12660 000036 MOVE (SP)+,S$PREVA(RO) ;SAVE CURRENT SECTOR 





me ee ee 





ee 





PATIOS C1 -OERPN 
DERPNS.Pil 


25 015644 


: 
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009207 RIS PC ; RETURN 


;ROUTINE TO DETERMINE OF ERROR IS AT A gt ee ‘a THE PACK DEFINED 


; QD TRACK/SECTOR TA R 
: RETURN PR ERRO atant Ba WHTEH OE IE. THE TABLE 
; URN¢e IS THE ERROR RORESS, Is NOT CONTAINED IN THE TABLE 
: BY iF THE PARAMETER 'NOTPRT’ 
SPOTCK: 
010146 MOV R1,-(SP) 3 PUSH RI ON STACK 
510246 MOV Re. -(SP) + PU ON STA 
Ole701 900114 MOV #SBDSEC,RI ? INCREMENT T FOR BAD SECTOR TABLE 
060001 ADD RO,R1 *ADD THE BLOCK’S STARTING ADDRESS 
Ole702 000010 MOV #8: Re “BAD SECTOR TABLE SIZE COUNT 
O21160 o00222 1$: CMP (RIS, SRHCC(RO) 15 CYLINDER IN THE TABLE ? 
001021 BNE 4 F 
005046 CLR -(SP) MAKE ROO ON THE STACK 
005046 CLR -(§P) "MAKE ROOM ON THE STACK 
004737 020124 JSR PC READDR *DECREMENT THE SECTOR/TRACK ADDRESS 
122661 CMPB OO s«( SP) +, 34 R1) :C THE TRACK ADDRESS 
001011 SNE 33 *BR IF IT IS NOT EQUAL 
105761 000002 TSTB 3s BRL) :IS A SECTOR ADDRESS IN THE TABLE ” 
100002 BPL 2s *BR IF ONE IS 
005726 TST (SP)+ s INCREMENT THE STACK POINTER 
000414 BR c§ ?DISPLAY THE MES 
122661 o00002 2s: CMPB 3s (SP) +, 2(R1) *COMPARE THE SECTOR ADDRESS 
001002 BNE 4§ :BR IF NOT EQUAL 
600410 ER c$ :CHECK ’NOTPR 
005726 3S: TST (SP )+ S INCREMENT THE E stack POINTER 
062701 oocoo4 ug: ADD #4.R1 G0 TO THE NEXT LOCATION, IN THE TABLE 
005711 1ST (RL) :PAST THE TABLE ENTRIES ” 
100411 SMI 3 :BR IF PAST 
DEC Re : DE THE MAXIMUM ENTRY COUNT 
ied BNE 1$ :BR IF MORE TO CHECK 
000406 aR 6$ *END, EXIT 
0095737 001320 cs: TST NOTPRT :PRINT THE ERROR ANYWAY ? 
001006 BNE 7§ “BR IF 
012737 177777 Ole416 MOV a1 PRT2B :SET THE INDICATOR FOR THE IDENTIFICATION LINE 
062766 000002 00004 gS: ADD 2,4(S5P INCREMENT THE RETURN 
012602 MOV (SP)+,Re 33POP STACK INTO R2 
012601 MOV (SP)+’RI : POP STACK INTO RI 
009207 RTS PC *RETUR 


5 REEREERAEREE EERE AREA RAE EAE RR ERE REEE RE EERE EERE EAR EERE REREEE RE 
-SBTTL ERROR MESSAGE GENERATION ROUTINES 
5p ERREERAEEEREEEAEEEAEEE REE EERE ESEEED LEELA REEL ERERE RE LEAR EREE EEE 
;PRINT LINE 1 OF ERROR MESSAGE 
032737 002000 001140 LINE1: BIT sSW10, SWR sSWITCH 10 SET * 
BEG +6 ;BR IF_NOT 


001402 
204401 001160 TYPE ,SBELL RING THE BELL 
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DERPNE.PLL ERROR MESSAGE GENERATION ROLTINGS 
ahs | PLY ,SCRLF iETOkK ON THE SYSTEM ? 
sy URES INE. aE Re eR ERM 
wei 16086 901005 BTSPLy "HOUR TYPE THE MINUTES 
uses i teais Bsizee DISPLY MINUTE TYPE THE SECONDS 
“ ; : 
138 ;PRINT LINE 2 OF ERROR MESSAGE 
4987 sCR-LF ’ 
: Y SC F an = 
4389 preps Ps BOs4: eee BIReLY ipinec ScLERR LOCN FOR ORDER CODE 
: 1 C 4 R 
4551 C1605, OOS03? Dibite 016166 TSR PGS. > PRINT. THE HNEMONIC, OF THE ORDER 
uggs Siege auras meat OISPLY ab tNeP ‘CLEAN POR PREVIOUS ORDER CODE 
we 00 Apeaas 016166 on SPREVO(RO),2$  ;PREVIOUS RO roNte 
32 O16I04 116037 Pana Ma tt statusiRo)’ -DID ERROR OCCUR DURING NON-DATA TRANSFER 
O16i4 astTS.s 
4309 Dlelle O3e769 O00040 O0d01 Bea INESA oe Hor TA TRANSFER’ 
4933 ible OOlNee Disply SCALE serie cer eee urine pon-pATe 
eoot 7435 LINesA ; A TABLE INDEX 
Book Biblse Ate Bi iss JP sCONVERT CODE INTO E INDEX 
Sos reiae poeeay plete 1S: 3s ;CONVERT CODE INTO ® TABLE INDEX 
Bieive OoEss? Olelee pet SS EDD THE TABLE BASE ADORESS 
S004 O16146 006337 A 2 Pb AD 
| Be HEE Bee BEE Reb, rmen,es ee Tae Br 
5007 O16164 104Ml2 9 RET 
se ticle ae woes: 1 Fic FSET wo sector une» 
S010 Dlel7e b0s73? OIGMIE ul * Bg LINESB fe on 
| BOLL DIbI7e OONOM es eM ge SERROR ADDRESS DEFINED AS BAD 
| pls ste 104412 1 NE2B: MOV RS, -(SP) ; DRIVE ADDRESS 
| 2018 Giesio OlosMe ee re HOVE DRIVES FROM CURRENT BLOCK 
E0iS Oléele O0S005 MOVE (RO), RS :CLERR UNIT NUPER 
017 Olgeie 14e73? gon0g7 o01263 eB acetal SHAKE. DRIVE NUMBER INTO A TABLE INDEX 
Sols Oieses isbe37 o0ie63 AsO’ nab sODRESS OF LOCATIONS TO PRINT 
TRS), SLINAD _; 
Ee coe we Bre Te) Hebe nO a PE ren 
2 Qleove Olea? Oveeee OleMi4 DISPLY ,SCRLF sORoLE RPOY REGISTER HEADER 
5022 12 001165 Y ‘'DHIG ; STANDARD 56 
a testy Toate 046235 Btepry "UNIT sPRINT THE UNIT ADORE 
| OLESEN IDWS ODISbS DISPLY LINGP ; REGISTERS 
| Bose Siee7o IONE 05134 J ah: SPRINT THE OPTIONAL RE : 
| 2b5— BiPSos Basear boposs OO1140 | (hc. ;8R IF NOT 
| £68 oleae Obi08) BIsPLY bus ; SHIFT ADDRESSES 
Biesi6 04412 O46341 MOV $L INAD+2, SLINAD i FINISH SHIFT 
| 3030 4 ry Ol64ie 016410 INAD+4, SLINAD+2 { 
| £033 Bless 0137 toai4 Olevie ey BT ;PRINT THEM 
| b1e336 1 DISPLY ,DAlé 
| 5034 016334 0442 











MAINDEC-11-DERPN-8 MACYL] 271722) 27-SEP-76 15:05 PAGE 122 

DERPNS.P11 ERROR MESSAGE GENERATION ROUTINES 
SO3S O16340 013737 O16412 916410 MuV SLINAD+2, $LINAD FINISH SHIFTING THE ADDRESSES 
5036 01634 004737 016356 JSR p sPRIN T THE REGISTERS 
5037 018352 01 1S: MO’ (SP)+,RS TORE RS 
5038 O1bs64 00020 RTS pC 
5039 16258 013705 O16410 23: MOV SLINAD, RS quate OF REGISTERS 
5040 Ol 005715 38: TST (RS) :AT END OF LINE ? 
5041 016364 901406 BEQ 4 F YES 
S042 016366 012546 MOV J(RS) +. -(SP) BUT THE CONTENTS ON THE STACK 
5043 b16370 737 O24740 JSR PC. PRTOCT :PRINT THE NUMBER 
5044 016374 l044le 051264 BISPLY .LINSP ‘PRINT 2 SPACES 
S045 016400 000770 $ :CONTINUE PRINTING 
E046 O16402 104412 OO11E5 4S: DISPLY .SCRLF :CR-LF 
Sa O1e40& 000207 RTS pC 
5048 016410 OCO000 O00000 OOD00D SLINAD: .WORD 0,0,0 sADDRESS OF REGISTERS 
poet 016416 900000 PRTOB: .WORD 0 ‘BAD SECTOR LINE INDICATOR 
5052 :PRINT LINES 3 8 3A OF ERROR MESSAGE 
ated 16420 104412 o475S52 LINE3: DISPLY ,LINM3 sLINE 3 ENTRANC 
5055 16424 ApodeS BR (ina i >FINISH INTOU 
5056 Ol6426 104412 047570 LINESA: DISPLY ,LINN3 *LINE 3A ENTRANCE 
5057 016432 O1G04E 00222 LIN3.1: MOV $RHCC(RO),-(SP) ;PUT CYLINDER ADDR ON STACK 
6958 016436 004737 030232 JSR PC, $S “CONVERT TO DECIMAL 

| 5059 o1644e ON? 32 025576 JSR PC’ SSUPRS :PRINT CYL ADDR 

| §060 O16446 104412 047565 DISPLY ,T *PRINT * T? 
5061 O164S2 CL ~(SP) * CLEAR STACK FOR SECTOR ADDR 
5062 016454 €LR -(5P) *CLEAR STACK FOR 

| §063 S16456 004737 020124 JSR PC, RE :SET DECREMENTED 

| 5064 Dibtbe 004737 O3Ce32 JSR PC'S :NOW CONVERT TRACK 

| 8065 O16 004737 025576 JSR PC’ SSUPRS “PRINT TRACK VALUE 

| $056 O16472 004 030232 JSR # : T ¢ 
5067 O16476 104412 047611 DISPLY :PRINT ’ 5° 

| §068 D1b50e 004737 025576 JSR pe SSUPRS SPRINT SECTOR 

; 5069 016506 104412 047614 DISPLY PRINT ’PRE , 
5070 Oibsle 01 900040 MOV reg -(SP) 2 of bREvTOUS CYLINDER 

| 5071 016516 004 030232 JSR PC,$ T CYLINDER 

| §072 O16522 O04 025576 JSR PC; SSUP. jPRINT CYLINDER 

| 6§073 O16506 104412 047565 DISPLY Be PRINT ’ T 
5074 016532 Ooso46 CLR (SP) MAKE ROOM ON THE STACK 
5075 O16534 116016 000037 MOVB SPREVA+1 (RO), = “PREVIOUS TRACK ADDRESS 
5076 016540 004 030232 JSR PC,§ sCONVERT TRACK 

| §077 016544 O04 025576 ISR PC; + SeBERs ‘PRINT TRACK 

| 5078 O16550 104412 047611 DISPLY 13. rt ’s¢? 

| §079 O16554 Ooso46 CLR (SP) MAKE ROOM ON THE STACK 

| §oe0 D155 11601 MOVB SPREVA(RO), (SP) ’-PREVIOUS SECTOR DDRESS 
5081 01 004 030232 ISR PC, $SB2D ;CONVERT SECTOR 
5082 O1b5b 0047 32 bese? TR y PC’ SSUPRS “PRINT SECTOR 

| Bet BRE BBosas By aft 

| 5086 sPRINT LINES 3B & 3C OF ERROR MESSAGE 

3 01 004737 01 LINE3B: JSR PC, LIN3.3 sLINE 38 ENTRANCE 

epee 01 104412 BE See DISPLY ,S$CRLF ; 

| £090 016610 000207 RTS pC 

; 
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DERPNS.P1] ERROR MESSAGE GENERATION ROUTINES 
91 O16612 904737 O1b622 LINE3C: JSR PC,LIN3.3 LINE 3C ENTRANCE 
Ole616 137 016654 MP LIN3.4 ‘FINISH MESSAGE 
20eq OleS2e2 104412 047635 LIN3.3: DISPLY NS3 LINE °38 8 3C’ ENTRANCE 
5095 Obese O1046 40 MOV gre vae2( RO), «shi overt Te CYLINDER 
ober Bieess oNtis O47ESe dieoy ‘Tinens «6 ie 
5098 Ol6642 O01 oo0222 MOV $RucC CRO), -(SP) PRESENT OVLINDER 
5099 O16646 O04 016714 JSR PC,LIN3.2° ‘CONVERT & TYPE 
2100 166Se 900207 RTS pC 
5108 O16654 104412 047667 LIN3.4: DISPLY NAZ SPRINT ACTUAL’ 
5193 O16660 013746 053644 MOV tYLDER -(SP) ACTUAL CYLINDER 
5104 O16664 004737 016714 JSR LIN3.2 ‘CONVERT & TYPE 
Sipe oieemy docoue piarty st fii RE TOS can 
5107 016676 116016 00017 MOVB sribA+1 (80), (SP)’ :PUT TRACK ON STACK 
5108 016702 004737 016714 JSR PC. LIN3.2 ;CONVERT & TYPE 
5109 016706 104412 901165 DISPLY Saher 
£119 016712 000207 RT PC 
Sil2 O16714 O1S646 LIN2.2: MOV 2(SP),-(SP) sSET ye STACK FOR CONVERT 
cy HIE Bree BEBE jf redsen, = Fee 
5115 018730 012616 MOV (SP+, (SP) i RESTORE STACK POINTER 
piié 016732 000207 RTS 
| 5118 ;PRINT LINE 3D OF ERROR MESSAGE 
5120 016734 032737 OOD040 O01140 LINE3D: BIT #SWOS , SWR SWITCH S SET ? 
Siei 016742 O01416 Q 15 ;BR IF IT 3S 
Slee O16744 104412 047741 DISPLY LINES :*RHBA = 
5123 016750 016046 MOV (RO),-<SP) *: BUFFER ADDR REG CONTENTS 
else Dleveo ioudie D477El DEePLY ei i “oat Soe 
Si26 O16 Dieo4s MOV $RHWC(RO), -(SP) WORD COUNT REG GISTER CONTENTS 
5127 016770 004737 JSR PC, LINY. 1 *CONVERT IT & PRINT IT 
©1208 016774 10441le OO1IES DISPLY ,SCRLF 
21¢3 017000 000207 i$: RTS Pc 
| Bi3k ;PRINT LINE 3E OF ERROR MESSAGE 
ee eee Cee LaaE prety YL(RO),-(SP) ‘OVE tye To “stack 
etsd ae peo ine ay >CONVERT IT 
| §136 017016 004737 025576 Ten Sercks PRINT IT 
| pis? Ol7tee ipuile O51 DISPLY iL se ; SPAC 
| EBS of soe clk if i teCeAR STACK 
eta Wane 116016 o00011 MO STRK(RO),(SP) ;T TO STACK 
ERD Ge tiie Gee ts eae 
! ets Gt 1Ouiiie 1364 DISPLY LENSE SPACES 
| Bile Bfbe0 Apsong pa tY LINES SPEAR STACK 
| S146 017062 116016 000010 MOVB SSEC(RO), (SP)  $SECTOR ADDR TO STACK 
| 
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DERPNS.P11 ERROR MESSA 
S147 017066 004737 030232 
S148 017072 004737 O25S76 
5149 017076 1044le OO1165 
S150 017102 000207 
$151 
5152 
5153 
S1S4 017104 032737 900040 001140 
S155 Ol7lle 001420 
S:iS& 017114 1044%le 047731 
S1S7 0617120 O1604%6 000172 
£:58 017124 904737 024740 
SiS$ 017130 104412 051364 
S160 O17134 1044!i2 047720 
S161 017140 pees 20 
Siée 017144 O04 024740 
S163 017150 104412 OO01165 
S1&4 017154 000207 
S1és 
S166 
S167 
o1pg bt7iee ace SE OOoE 
5170 O17166 pte 017236 
5171 017172 104412 OS0034 
5172 017176 O1604%6 000020 
5173 017e0e 004737 016714 
5174 0172068 i044le OSOO4E 
5175 9172le 016046 000170 
5176 017216 166016 000006 
ote Dzsed GONoae O1G7I4 
5179 fives 104412 1165 
2180 017234 000207 
5182 017236 a) pote 
et8s 017242 O04 0304 
S184 017246 004737 O2SS76 
5185 0172eS5e Oleblsb 
5186 9017254 000207 
5187 
S188 
5189 
ae es 104412 0OS0101 000170 
Else l7e% Ol7ove S00170 
a 017300 ai att 
198 017304 Ol 
ci% pi7aie 004737 024740 
5197 017314 Ol 000166 
ea picasa 06601 b00020 
5200 pi7ae? 1 000026 
Se01 017332 0047 Oe42e4 
S202 017336 Oleble 


JSR 





mets RON” ROL Ne en es 


PC, $S820 


;PRINT LINE 3F OF ERROR MESSAGE 


LINESF: BIT 
DISPLY 
V 


18: 


_& , SWR 


NDA 
sFeDA ROD, -(SP) : 
PC, PRTOCT 
»LINSP 


LINCA3 
SRHCH CRO), -(SP) 
a 
pC 


;PRINT LINE 4 OF ERROR MESSAGE 


LINE4: piaree 


LIN4Y.1: 


;PRINT LINE S OF ERROR MESSAGE 


LINES: DISPLY 
SUB 
JSR 
DISPLY 
MOV 
JSR 
MOV 
ADD 
CLR 


MOV 
JSR 


5 grreA CRO) 
JSRHBA(RO),-(SP)’ 
Pr ihe 
a 
SRHWC(RO),-(SP) ; 
SURDL (RO), (SP) 
$SSEC(RO),-(SP) 

PC, LINKDV’ 

mov (SP)+, (sb) 





CRT I IT 
PRINT IT 





SWITCH 5 SET ? 
:BR IF NOT 

!DESIRED ADDRESS ON STACK 
:PRINT IT 

aS 

DESIRED CYLINDER ADDRESS 
PRINT IT 


Convent fo OcTaL PROPER LOCN ON STACK 


:PRINT 
RESTORE "stack POINTER 


;PRINT_’GOOD DATA’ 
; BACK THE ADORESS UP 
;'GOOD’ DATA - AT THE RHBA LOCATION 
PRINT I 
;PRINT *BAD DATA 
;GET ~~ CHAR FROM BUFFER 


NT 
NGT H ON 
; MAKE ite A POS tive NUMBER 


ae ke 
IVI 


DE WORDS XFERED y's SECTOR SIZE 
;MOVE REMAINDER UP THE STACK 







NERA ION ROUTINES 


SA Pi ae meCeace GEN 


Seca 


2 
bo 
fw 


— 
Ww 


RaSRe 
si 


8 
a 


fOrufufuroturofurate 


0 b= b= 0 0 0 ho pee 
WONWUI£WIT-O 


Ty 

Sg 
259 
dae 


3 


OOOO OOOOCOO0O000 
=r 


Bs Po Fas hat He Po fhe B= Pm Bs a Pw be he 


CJ p 
5 
“Nrur 


Z 


corer 
ag: 


ui 
Oo 


seas 


Bessthen 6 BE 
: 


See 
alot 
or 

Bis 
ror 


2 
ae 
tT 


: 


Zw 


Oo00000 
RS 
- 
fT 


# 
es 


z 


—_ 
So 


8 
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DISPLY ,LINPS PRINT SECT Fos” 
ISR PC LIN3.2 :CONVERT & PRINT IT 
DISPLY sur 


;PRINT LINE SA OF THE ERROR MESSAGE 


LINESA: DISPLY ,LINSS :*HEADER CONTENTS OF ERROR SECTOR’ 
MOV EYLDER.-(SP) | HEADER POSITION TO ST 


yoRy fe PC FRTOCT putt HEADER POSITION 
MOV evi beRs2 -(SP) :HEADER POSITION+2 TO STACK 
JSR PC. PRTOCT ;PRINT HEADER POSITION++2 
DISPLY .LINSP *SPACES 
V AYLOER+Y -(SP) ; HEADER POSITION+4 TO STACK 
PC FRTOC oct “PRINT HEADER POSITION++4 
DISPLY ,LIN :SPAC 
V AYLDER+6,-(SP) HEADER POSITION+6 TO STACK 
Pc, PRTOCT 


JSR *PRINT HEADER POSITION++6 
DISPLY ,LINSP : SPACES 


DISPLY ‘S§CRLF 
RTS PC 
;PRINT LINE SB OF ERROR MESSAGE 


LINESB: DISPLY 
MOV 


*RHEC1 
$reC1 (RO), - ~(SP)' ;ECC POSITION REGISTER ON STACK 


JSR PC, PRTOCT PRINT 
DI sLINSP 3SP aye?! 
DISPLY * RHEC2 = ’ 
MOV ghirestRO),-<SP)’ ECC PATTERN REGISTER ON STACK 
ISR PC, PRTOCT sPRINT IT 
DISPLY ,S$CRLF 
RTS PC s RETURN 
;PRINT LINE 6 OF ERROR MESSAGE 
LINE6: DISPLY ,LINS sECC CORRECTABLE 
DISPLY ’SCRLF 
PC 
;PRINT LINE 6A OF THE ERROR MESSAGE 
LINEGA: DISPLY ,LINC6 sPRINT "READ CORRECTLY AT OFFSET N’ 
IN6.1: ASL Ri “DOUBLE THE OFFSET TABLE INDEX 
HOV : OFMTBL(R1),1$  3ADDRESS OF OFFSET POSITION MESSAGE 
1S: .WORD OO OFFSET VALUE 
DISPLY SCRLF 
TS PC 
sPRINT LINE 6B OF THE ERROR MESSAGE 
LINE6B: DISPLY ,LINB6 sPRINT *SECTOR IS ECC CORRECTABLE ’ 
IMP LING. 1 
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ERROR MESSAGE GENERA ION ROUTINES 
;PRINT LINE 6C OF THE ERROR MESSAGE 


o~ 
ne 
Bs? 


epesgeses 
Byiagias 


eng 
RERR 


38 
ae 


8 
. 


= 


3 


= 


050313 
COd2e 
016714 
Tete 
00116 


001140 


LINE&C: DISPLY 
LIN6.2: 
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sb ne 
SRE TRY RQ), (SP) 
LIN3.2 


thn 
Wo 


;"CORRECTED ON NTH RETRY’ 
Reta fount 


R 
;CONVERT & PRINT IT 
: RETRY’ 


;PRINT LINE 6D OF THE ERROR MESSAGE 


LINEGD: DISPLY 
JMP 


LINUO6 
LIN6.2 


;’UNCORRECTABLE AFTER N RETRIES’ 
FINISH 


;PRINT LINE 7 OF THE ERROR MESSAGE 


LINE?: eee 


JSR 

JSR 

DISPLY 
MOV 

JS 

DI 


R 
SPLY 
Vv 


38 
ISPLY 
af 
mt 


J 
JSR 
8) 
B 


LIN70 


;PRINT ORDER COUNT 


RSOPERC,-(SP) 3TO STACK 

RO, (SP)’ "ADD THE BASE ADDRESS 

PC; $DB2D ; CONVERT IT 

PC, SSUPRS PRINT IT 

N7T TOT AL ERRORS 

$TOTAL(RO),-(SP)' TO STACK 

PC,LIN3.2 s CONVERT 8 PRINT 

LIN?7x “PRINT *WRDOS XF 

ASTRANS, (SP) “ADDRESS OF LOW F ORD ON STACK 

9 

PC, SDB2D ; CONVERT 

PC: $SUPRS ;PRINT 

LIN7R TS READ’ 

BSREAD, ~(SP) LOW WORD ADDRESS 

PC, $DB2D ; CONVERT 
PC’ $SUPRS : PRINT 

SALE 

&SW15, SWR ;SEE IF "HALT ON ERROR’ - SWITCH 15 

‘SWITCH 15 HALT 

PC 


;PRINT LINE 7A OF ERROR MESSAGE 


LINE7A: DISPLY 





LIN70 
BSOPERC, - (SP) 
RO, ( 


PC’ SSUPRS 
i 





"ORDERS = 
, ORDER SBUNT. INCREMENT 
ADD BASE ADDRES 

; CONVERT THE RBURT 


: I 
* “TOTAL MISPOS ERR = ’ 
; TOTAL ERRORS 
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g 
me EE 


en Go 
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PC, LING. ONVERT & PRINT IT 
BtepLy N3.2 ON sk OfyL ERR = * 
$5k1(RO) -(SP) :CONVERT & PRINT 


JSR 3.2 CONVERT AND PRINT. IT 

DISPLY rethee 

DISPLY 

BIT isu, SWR ; SEE IF HALT ON ERROR - SWITCH 15 SET 
HALT SGNITCH 13 HALT 

RT PC 


;PRINT LINE 8 OF THE ERROR MESSAGE 
LINES: DISPLY ,LINEM 
JSR PC LINE ;PRINT LINE 2 OF ERROR MESSAGE 
: 5 RERERRERAL AREAL LER EL AEE AE LL LEERRAL LAA AELE RA EL AE REA EEA ELERELERE 
.SBTTL GENERAL SUPPORT SUBROUTINES 
fp RARRAEAAREL ELE R RE REALE LLE REALE LAE ERE REEL RELL LEER ERE LEE ELAR EREE 
sROUTINE TO INDICATE MEMORY SIZE ERROR AT STARTUP 
MEMERR: TYPE  ,SCRLF 
TYPE NOTNUF 


> CR-LF 
: *TYPE "NOT ENOUGH MEMORY’ 
TYPE *SCRLF *CR-LF 


IMP START sTRY IT AGAIN 
sDECREMENT THE SECTOR-TRACK ADDRESS - 
READDR: CLR 4(SP) sCLEAR STACK FOR SECTOR 
MOVB § SRHDACRO),4(SP) *: INCREMENTED SECTOR ON STA 
DECB 49-4 SP) sPECREMENT THE SECTOR ADDRESS 
BPL 1$ IF SECTOR GREATER THAN O 
MOV #25, 4(SP) ; JAN SECTOR ADDRESS TO 21(10) 
CLR 2(SP) “CLEAR STACK FOR TRACK 
MOVB § SRHDA+1(RO),2(SP) - TRACK ADDRESS 
DECB = 2( SP) sDECREMENT TRACK ADDRESS 
BPL a} *BR IF IT DIDN’T GO NEG 
HOV #22,2(SP) *RESET TRACK TO 18(19) 
1S: MOVB § $RHDA+1(RO),2(SP) : TRACK ADDRESS 
23: RTS PC * RETURN 
sROUTINE TO CHECK FOR A PRINTER 
CKPTR: MOV CLEAR PRINTER AVAILABILITY FLAG 
MOV RcKOTRL, LG ERRVEC’ sRETURN ADDR IF NO PRINTER 
CLR JHERRVEC+E NEW PSW 
TST oerece READ PRINTER STATUS REG 
c SPRFLG sett THe THE SPRINTER AVAILABILITY FLAG 
CKPTRI: ADD #4, SP RESTORE OTHE STACK POINTER 
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$371 012737 000006 900004 CKPTRe: MOV 
000207 RTS 








;RESET ERROR VECTOR TO HALT 









#6, J8ERRVEC 
PC 
















5372 
5373 
bard sROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
1 177777 001 CKCLK: MOV a 1, LKFLG LEAR CLOCK AVAILABILITY FLAG 
23 pepeee ptesee 177777 ppteae MOV + ELKE ‘ELEBR KW11-P CLOCK AAtt abit ry FLAG 
5378 020274 012737 020354 000004 MOV ScKMLT SRERRVEC’ EET UP VECTOR FOR CLOCK CHECK 
2373 geoage b05037 000006 CLR JRERRVEC+2 tN 
160662 TST a$LKCSR ;CHECK FOR KW11-P 
5381 20312 005037 001210 CLR cLKFLG *SET CLOCK AVAILABILITY FLAG 
E382 020316 005037 001206 CLR :SET KW11-P CLOCK 
5383 Oc03se2 013701 001200 MOV SLPVEC,R1 *KW11-P VECTOR KboRESS 
S384 020326 Ol 21 021432 MOV #CLOCK: (R1)+ 3SET UP KWI1-P VECTOR 
5385 O20332 012711 000300 MOV #300, (R1) *PSW = PR 
5386 O20336 012777 177777 160632 MOV #-1 MEL KCSB {LOAD COUNTER BUFFER WITH 1°S 
5387 020344 012777 O00135 160822 MOV 135,aSLKCSR § ;SET CLOCK - CNT UP, 16MS, CONT INT 
5388 Oe03S2 000432 BR CKCLKS 
5389 020354 062706 900004 CKCLK1: ADD 4 SP sRESTORE THE STACK POINTER 
5390 O20360 O1er3? O20422 oo0004 MOV ackELi2, QHERRVEC’ i CHANGE ERROR VECTOR TO CHECK FOR KWI1-L 
e3as 020372 aes aR kr LOK 9 Poh OCk FLAG” 
2335 020376 seat opt MOV SLLV re *KWIL-b GK FLAG ce 
528 Oe0402 012721 021432 MOV #CLOCK: (R1)+ ;SET UP KWll-L VECTOR 
5395 029406 Ole711 000300 MOV #300, (R1) -PSW = PRI 6 
53% O204l2 012777 OO00100 160562 MOV #100; SSCKS *SET KW11-L INTERRUPT 
5397 020420 000407 BR CKCLK3 
5398 O20422 062706 COO004 CKCLKe: ADD #4. SP sRESTORE THE STACK POINTER 
5399 920426 104401 OS2255 TYPE —, NEDCLK :*P OR L CLOCK MUST BE ON SYSTEM’ 
5400 O20432 O00000 HALT sHALT 
5401 020434 000137 001436 IMP START Y AGAIN 
S402 020440 012737 OO0006 O00004 CKCLK3: MOV #6, JHERRVEC RESTORE THE ERROR VECTOR 
e103 02044 000207 RTS PC 
S405 ROUTINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED 
5407 o20450 STATPR: 
S408 O20450 O10046 MOV RO, -(SP) ;;PUSH RO ON STACK 
5409 O204S2 010246 MOV Re, -(5P) sr BUSH R2 ON STACK 
5410 020454 010346 MOV R3,-(5P) *PUSH R3 ON STACK 
S4i1 o20456 910446 MOV 4’ (SP) PUSH RY ON STACK 
Sule 020460 o0s004 CLR RY CONTAINS THE UNIT POINTER 
S413 Oed46e b1e703 1 MOV #8. ,R3 ?R3 CONTAINS THE UNIT COUNTER 
5414 01 037146 MOV KO : OF FIRST COUNTER 
S41S Oe047e 105764 O41640 1S: TSTB = ASNLST(R4) -SEE IF DRIVE ASSI 
5416 020476 001006 BNE :BR IF IT IS 
5417 020500 O0S204 INC RY * INCREMENT THE UNIT POINTER 
54} 000236 ADD #SRHEC2+4, RO i INCREMENT, THE BLOCK ADDRESS 
il DEC R ;FINISHED ? 
1 1 iBR ( iy 
eas haette O73? 7, s BR Bs TYP ADING 
2u55 BSpesa eg, 4 erat Se: feta BSAC ET CRA) it mee he ae RECT GNED 
S424 020524 001003 BNE 4 BR IF NOT 
S425 020526 62709 000236 ADD #SRHEC2+4,RO ADD TABLE SIZE TO ADDRESS 
E426 020532 BR 5$ 
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27 020534 01000 4g: MOV RO, Re PUT BLOCK ADDRESS IN R2 
cig D205 Obe oooo4e ADD #SOPERC, Re FIRST COUNTER 19 "pLSPLAY 
4 4 4737 O20644 JSR C, SDETAL ;TYPE THE 
5430 020546 062700 000236 ADD 8SRHEC2+4, RO + INCREMENT stock ris FRESS 
S43) o&S2 go5204 S$: INC RY *TNCREMENT UNIT NUMBER 
54 303 DEC 3 ‘DECREMENT UNIT COUNTER 
5433 020556 901360 SNE 3$ :BR IF NOT FINISHED 
5434 020560 b$: 
5435 De0s60 Qt MOV (SP)+,R4 ;;POP STACK INTO RY 
5436 12603 MOV (SP)+°R3 ::POP STACK INTO R3 
5437 020564 012602 MOV (SP)+'Re :POP STACK INTO Re 
5438 020566 012600 MOV (SP)+'RO POP STACK INTO RO 
5433 020570 000207 RTS PC 
Sti sTYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
S443 020572 g04737 1402 SHDTYP: JSR PC, STIME sTYPE THE TIME OF DAY 
S444 020576 025134 ISR RS; TYPRI4 ‘TYPE AT PRIORITY 4 
S44S 020602 001165 SCRLF : CR-LF 
SHHe 020604 004537 025134 JSR RS, TYPRI4 ‘TYPE THE HEADER 
447 020610 051547 STATHD H 
euus OSDELE Bordon OOlees Beas $L AGO ON THE SYSTEN ? 
5450 hanes niteta 025134 JSR RS, TYPRIY ‘SPLIT THE HEADER LINE 
S451 020604 001165 SCRLF :CR=LF 
S452 020626 004537 025134 JSR RS, TYPRI4 TYPE SPACES 
S453 020632 051362 LINYSP 74 SPAC 
S454 020634 004537 025134 1S: ISR RS, TYPRI4 ‘FINISH THE HEADER LINE 
S4uSS 020640 051662 STAHD1 *REST OF THE HEADER LINE 
SY5b O2ecé42 000207 TS PC 
So TYPE THE ERROR RATE DATA LINE 
S460 O20644 142737 000007 001263 SDETAL: BICB 4#7,UNIT+1 CLEAR THE UNIT NUNBER 
5461 O206S2 150437 001263 BISB RY UNIT+1 :SET THE U UNIT NUMBER 
S42 020656 104401 O0lebe TYPE ALT ;TYP 
S463 Oc0b62 104401 051364 TYPE LINSP AEES. 
| S464 O20666 O01 000074 MOV SEASSC(RO) ,~(SP)’ - PUT THE PASS COUNT ON THE STACK 
S465 020672 004737 030232 ISR PC, $SB2D CONVERT 
S466 020676 004737 Oe4626 ISR PC’ SRPZRS iT YPE 
| 5467 020702 104401 051364 TYPE L INSP :SPACES 
S468 020706 010246 MOV Re, -(SP) *PUT SOPERC ON THE STACK 
5469 020710 004737 030036 JSR PC, $D CONVERT IT 
5470 020714 004737 O24616 JSR PC’ SRPZRB :TYPE SOPERC 
6471 020720 104401 051364 TYPE tNSP ; SPACES 
| §472 020724 ADD sR2 INCREMENT R2 
73 020730 b10e46 MOV r=( PUT SPOSIT ON THE STACK 
474 020732 737 030036 JSR PC; $DB2D “CONVERT IT 
5475 020736 004737 Oc4616 JSR PC’ SRPZRB TYPE $POSIT 
| §476 O20742 104401 051364 TYPE {NSP SPACES 
| 6477 02074 062702 ADD 4, Re INCREMENT Re 
| $478 Oe0752 010246 MOV r=( “PUT $T RANS ON THE STACK 
| §479 020754 004737 030036 JSR PC, $DB2D s CONVERT $TRANS 
| §480 020760 004737 024646 JSR PC’ SRPZRO TY PE 
| §481 020764 104401 051364 TYPE ,LINSP PACES. 
| §482 020770 062702 000004 D b4, Re INCREMENT R2 
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;ROUTINE TO INCREMENT SSOFT 






MOV Re, -(SP) 


ISR PC’ $0B2D ; CONVERT $READ 
JSR PC’ SRPZRO TYPE IT 
TYPE LINSPO 1 SPACE 
ADD 4 Re HINGREN ENT Re 
qs! Lasu :LA30 ON THE SYSTEM ? 
ae HR Pus te 
TYPE  ‘LINSP F: SPACES 

13: ADD 2.R2 | INCREMENT R2 AGAIN 
MOV (RE)+, =(SP) :PUT $SOFT ON THE STACK 
JSR PC, $5820 *CONVERT $SOFT 
Tree |r tNSPO iTPeGUT SSOFT 
NOV tees sPUT SHARD ON THE STACK 
Te. Pe Saran TYeeout Si 
Nov tRe)s (SP) sPUT $SKI ON THE STACK 
TRE Pc Saez {YPEOUT _ 
I gl OS 
JSR PC, SREZR *TYPEOUT S$MISPO 


SSKI(RO), tSP) 


SUB ; SUBTRACT FROM STOTA 
SUB SnISPOCRO), (SP) ;SUBTRACT SMiSPO FRON STOTAL 


ISR PC, $SB2D “CONVERT ’OTHER’ 
JSR PC’ SRPZRY ‘TYPE IT 
TYPE SCRLF 
RTS pc 
sROUTINE TO TYPE STATISTICS FOR THE DRIVE IN RO 
TYPEST: 
MOV RO,-(SP) 3 PUSH RO ON STACK 
MOV Re, ($B) *:PUSH Re ON STAC 
MOV R4,-(SP) * PUSH RY ON STACK 
JSR PC, SHETYP ty PE THE HEADING 
CLR RY s CLEAR R4Y FOR DRIVE NUMBER 


He 


;PUT SREAD ON THE STACK 


NSPO : SPACES 
MOV stars cRO) .- {SP *CALSULATE NUMBER OF OTHER ERRORS 
0) ;SUBTRACT SSOFT FROM STOTA 


;DR 
PUT ae ADDRESS IN R 
atetitc IN" PRESENT CLOCK 
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55393 ; 
po40 :NOTE: $SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 
Sc aoe 2 i SNC E acne ret 
5544 021044 Boe88 000064 023417 CMP $S0FT(RO), #9999. ' Re s50FT ALREADY AT MAXIMLIM ? 
5545 Oelese 103002 SHIS 1 ;BR IF IT 
SS48 Oeies4 205260 onn064 INC SSOFT(RO) s INCREMENT SSOFT 
Sa 021260 000207 is: RT PS : RETURN 
5549 
£550 ;ROUTINE TO INCREMENT SHARD 
bebe "NOTE: SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10) 
5554 O21262 005737 O16416 INCHRD: TST PRT2B :SEE IF BAD TRK/SEC INDICATOR SET 
SS5S Celebs O01006 BNE 1$ -BR IF IT’S SET, DON’ T INC/EMENT COUNT 
556 be1270 026027 O00066 023417 CMP SHARD(RO), #9999. ;IS SHARD ALREADY AT MAXIMUM ? 
oS 1276 103002 BHIS 1% ;BR IF IT IS 
S558 021300 005260 op0cee INC SHARD (RO) s INCREMENT SHARD 
5358 021304 000207 1$: RTS PC ; RETURN 
cool 
bebe sROUTINE TO INCREMENT $SKI 
bob *NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 
5566 021306 005737 016416 INCSKI: TST PRT2B ;SEE IF BAD TRK/SEC INDICATOR SET 
5567 OSelsle 001006 BNE 1$ *BR IF IT’S SET, DON’T INCREMENT COUNT 
S568 021314 026027 000070 023417 CMP $SKI(RO), #9999. °:IS $SKI ALREADY AT MAXIMU 
5569 Oelse2 103002 BHIS 1§ :BR IF IT IS 
©570 021324 005260 000070 INC $SKI(RO) s INCREMENT SSKI 
271 021330 000207 1S: RTS PC s RETURN 
5573 
Stel sROUTINE TO INCREMENT SMISPO 
228 "NOTE: S$MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 
5578 021332 005737. C1e416 INCMIS: TST PRT2B ;SEE IF B90 TRK/SEC INDICATOR SET 
739 021336 901006 BNE 1$ *BR IF IT’S SET, DON’T INCREMENT COUNT 
021340 026027 000072 023417 CMP $MISPO(RO), #9999. ;IS $MISPO ALREADY AT MAXIMUM ? 
5581 021346 103002 BHIS 15 -BR IF IT IS 
5S 21360 005260 000072 INC SMISPO(RO) s INCREMENT SMISPO 
pees 1354 000207 1S: RTS PC ; RETURN 
EEES 
| PEBe sROUTINE TO INCREMENT STOTAL 
Poe "NOTE: $TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 
$530 021356 005737 016416 INCTOT: TST PRT2B ; SEE IF BAD SEH Sent TP ENGRENENT COUNT 
2egp pet 3P5 6 o00062 023417 as sForaL cro), #3939, mn Stofat ALRESDY AT MAXIMUM ? 
| §593 021372 103008 BHIS 15 :B 
| §594 021374 OOS260 o00062 INC STOTAL(RO) TT THGREMENT $TOTAL 


—— + eee ee - ee 


+ 


ee + ee ne ee eens Stew 
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ss95 021400 000207 18: Ris PC : RETURN 
5536 
5637 
2238 sROUTINE TO TYPE THE TIME 
5600 o2e1402 oos73s7 o01210 STIME: TST CLKFLG sCLOCK ON THE SYSTEM ” 
5601 621406 901010 SNE 3 -BR IF NOT 
Sede O21410 104401 001165 TYPE ,SCRLF 
5653 621414 10440! O21702 TYPE ‘HOUR : TYPE THE HOURS 
5604 21420 104401 021706 TYPE = MINUTE :TYPE THE MINUTES 
S505 Oelse4 :04401 Oelvie | ‘TYPE SECOND :TYPE THE SECONDS 
S606 2143 900207 18: RTS = PC 
Bae sCLOCK HANDLER ROUTINE 
203 021432 010046 CLOCK: MOV RO, -(SP) :SAVE RO 
S611 021434 021720 INC SIXTEE : INCREMENT THE 1/60 SECOND COUNTER 
S612 851440 O01 SNE is :BR IF A SECOND NOT COUNTED 
S613 Oel44e 01 o01222 021720 MOV HZ, SIXTEE RESTORE THE VALUE 
S614 O214S50 005437 021720 ¢ SIXTEE “MAKE IT INTO 2°S COMP 
S6iS 021454 105237 921713 INCB COND+1 INCREMENT THE SECONDS 
S616 O21460 122737 000072 021713 CMPB 872, SECOND+1 = ;SEE IF COUNTER AT MAX 
S617 Oel466 OO1062 1 ‘BR IF NOT 
5818 O21470 112727 O00060 021713 VB  860,SECOND+1  ;RESTORE VALUE 
5619 021476 105237 Oel7le INCB SECOND INCREMENT UPPER 
5620 O21S02 122737 OOO06E O21712 865, SECOND {UPPER AT MAX 
S621 021510 O01 1$ :BR IF NOT 
5h22 pet le 1 000060 o21712 MOVB #60, SECOND RESET UPPER 
5623 921 1 001305 DECB —sCINTRVL41 sDECREMENT STATISTICS TYPEOUT INTERVAL 
S624 621504 105237 021707 INCB MINUTES! INCREMENT MINUTE 
5625 021530 ier 000072 921707 CMPB = 872,MINUTE+1  3AT MAX ? 
S626 Oe1536 Lol BNE l :BR IF NOT 
5627 021540 112737 000060 021707 #60,MINUTE+1  § ;RESET LOWER 
S628 021546 105237 021706 INCB” = MINLIT ? INCREMENT UPPER HALF 
5629 O215S2 122737 O00066 021706 MP8 = 866, MINUTE AT MAX ? 
5630 021560 001026 1$ :BR IF NOT 
£631 021562 112737 OO00060 021706 MOVE § 860, MINUTE RESET UPPER 
£632 021570 105237 021703 INCB HOUR+!] * INCREMENT HOURS 
5633 e157 bee? 32 035071 021702 CMP #35071,HOUR “AT MAX (99) ? 
5634 Oelb0e oo14ie2 2s *BR IF IT IS 
S635 O21604 122737 000072 021703 CMPB —s- 872, HOUR+1 AT MAX ? 
5626 21612 01011 BNE 1$ :BR off NOT 
5637 021614 11 p00060 021703 MOVB #60, HOUR+1 "RESET VALUE 
5638 Oeibee 105237 021702 INCB HOUR INCREMENT UPPER 
5639 Oel BR 1$ 
pe ibs 6 j ti t+ i #1 ait Reser ON THE STACK 
zea PS tee Bas? neat JSR RO, RPTMR ‘DRIVER TIMER ROUTINE 
5643 021646 105737 001304 TSTB 3 sINTRVL ‘DISPLAY THE PERFORMANCE SUMMARY ? 
5644 Oelese O014 9 3$ *BR IF NOT 
ce4S 021654 105 001305 STB ~—sCINTRVL#1 “DISPLAY INTERVAL FINISHED ? 
S646 O21660 001006 *BR IF NOT 
47 Deibbe 1273? 001204 001305 MOVB INTRVL,INTRVL#1 ;RESTORE THE INTERVAL 
1670 012737 177777 001230 MOV #-1, STATIN “SET ERROR RATE DATA DISPLAY FLAG 
£649 021676 012600 38: MOV (SP5+,RO *RESTORE RO 
£650 021700 00002 RTI 
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S851 
S652 021702 060 0&0 HOUR: .BYTE 60,60 HOURS 
S653 021704 07 600 “BYTE 72,9 2's’ & TERMINATOR 
5654 021706 o6¢ 560 MINUTE: .BYTE 60°60 : MINUTES 
SésS 021710 if 699 “BYTE 72:0 2's" & TERMINATOR 
c655 Oel7le 6 069 SECOND: :BYTE 60,60 : SECONDS 
5657 O2i714 040 649 “BYTE 40:40 SPACES 
5658 del716 “BYTE 0 : TERMINATOR 
3553 021720 EVEN 
S661 021720 000000 SIXTEE: .WORD 0 :1/S0TH OR 1/SOTH OF A SECOND COUNTER 
5s sCOMMAND DECODE ROUTINE 
S665 021722 KSR: 
ShE6 Oel722 O10046 MOV RO,-(SP) :;PUSH RO ON STACK 
S667 O21724 O10146 MOV Ri’ -(5P) >:PUSH R1 ON STACK 
5668 021726 010246 MOV ’=(5P) ::PUSH Re ON STACK 
5669 021730 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
5670 021732 O10446 V '-(5P PUSH RY ON STAC 
5671 021734 O10S4 MOV RS. -(5P) >:PUSH RS ON STACK 
S672 021736 Ole70S Oeb265 MOV #StKOSRT+1,RS5 ADDR OF INPUT 
5673 O2l742 104401 OO1IES TYPE SCRLF CR@LF 
| S674 21746 122715 000101 CMPB sa 101, (RSD -EQ TO AN ’A’ 
5675 Oel7S2e 001410 BE } :SR IF IT IS 
5576 021754 12iS27 o00075 CMPB «(RRS , #75 ‘UNIT NUMBER GREATER THAN AN ASCII 7 ” 
| §877 021760 103054 BHIS $ ;BR IF IT IS 
| S678 O21762 121527 OO0060 CMPB OO s«( RS), #60 ‘UNIT NUMBER LESS ThaN AN ASCII O ” 
| 5679 961766 103451 BLO bg *BR IF IT IS 
| §680 021770 142715 177770 BICB = #7, (RS) ‘LEAVE ONLY LOWER 3 BITS IF CHAR NOT 'A’ 
| 5681 921774 120765 000124 177777 15: CMPB Ow’ T, -1(RS) EQ TO T° 
| 56682 Oeend2 001003 BNE 23 *BR IF NOT EQ 
| 5683 022004 004737 o¢2134 ISR PC, NEWASN ‘ASSIGN UNIT FOR TEST 
| 5684 Oeepio oog442 BR 7§ EX 
, 5685 O2e01 122768 (00104 177777 2S: CMPB soa’, - 1 (RS) 7£Q TO 'D’ ? 
| 5686 1003 BNE 33 *BR IF NOT EQ 
| 5687 004737 o224s2 ISR PC, DEASGN *DEASSIGN UNIT 
$688 Ge20e6 000433 OR 7§ EX] 
' §689 O22030 122765 000123 177777 38: CMPB 8S, -1 (RS) EQ TO ’S’ 
| §690 922036 001003 BNE 4 :BR IF NOT EQ 
| 5691 22040 904737 oce2ss4 ISR PC, SCMND :TYPE STATISTICS 
/ 5692 O22044 Oo04e4 BR 7$ EXIT 
93 1ee76s 000127 177777 4$:. CMPB #’W,-1(RS) EQ TO 'W’ 
| 5694 001 BNE ot *BR IF NOT EO 
59s 032737 000001 O01140 BIT 8SWO, SWR ‘IS SWITCH O SET ? 
| §696 O22064 o0j0i2 BNE 6$ :BR IF SET, CAN’T DO 'k* COMMAND 
| §697 O22066 004737 023026 ISR PC, DATAPK “WRITE A DATA PACK 
| §698 Q2e072 00411 BR 7§ EXIT 
| §699 022074 122765 O00122 177777 SS: CMPB sw’ R, - 1 (RS) 7EQ TO 'R’ ? 
' §700 O22102 001003 BNE 6 BR IF NOT 
| 8701 62104 004737 023040 JSR PC, REDAPK *READ A DATA PACK 
| §70e2 110 oo040e2 BR *EXIT 
£703 Geelle 104401 os2e405 6S: TYPE  ,INVLD :TYPE "INVALID COMMAND’ MESSAGE 
' €705 O22116 012605 MOV (SP}+,RS ;;POP STACK INTO RS 
E706 Oeel20 012604 MOV (SP)+°RY ::POP STACK INTO R4¥ 
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MOV (5P)+,R3 + POP TACK NTO R3 
MOV (5°)+,Re2 4 
MOV (SP)+'R] S etacK INTO RI 
MOV (SP )+'RO 4 STACK INTO RO 
RTS ¢ 
sROUTINE TO ASSIGN A DRIVE ('T’ COMMAND) 
NEWASN: CLR PACK sCLEAR ’W’ COMMAND INDICATOR 
ASGNO: CLR RY :R4 IS TABLE INDEX 
MOV #8. ,R3 *SET INITIAL COUNT TO @ 
CMPB sé ON, (RSD *ASSIGN ALL UNITS? 
SEQ SGN :BR IF ALL UNITS 
ASGNI: MOVB :PUT UNIT # IN RY 
MOV sORTAN, ASNMSG :°UNIT ASSIGNED’ MESSAGE ADDR 
MOV RELOAD R3 FOR 1 UNIT 
TSTB AeALET CRY) “UNIT ALREADY ASSIGNE 
aoe 43 ASGN3 BR Tent? ON THE SYSTEM 
1$: Mp RSHERR eT ue IF DRIVE Ror AVAIL 
ASGNe: JSR PC, ASGN3 ;ASSIGN ALL UNASSIGNED, AVAIL UNITS 
ihe 2 sUNET NOT ON SYSTEM 
1S: MOV SASGN2+4, -(SP) BUT RETURN RDORESS ON THE STACK 
IMP ASGNY *LOOK FOR MORE UNITS 
ASGN3: TSTB RONLST(RM) UNIT ALREADY ASC GhED? 
1$ Ol art Bera TRANSEER UNDER WAY ? 
BPL 1$ *BR IF IT IS 
MOVB §R4,GENDPB :DRIVE NUMBER 
JSR PC’ RECALO *RECALIBRATE DRIVE 
TSTB = DRVSTACRY) ‘DRIVE AVAILABLE? 
BEG ASGNS :BR IF DRIVE OFFLINE 
BMI RSGN? ;BR DRIVE NOT AVAILABLE 
ASL ‘MAKE R4Y INTO WORD INDEX 
MOV BLKADR(RY) NEWUNT CRY)» >DPB ADDRESS 
MOV BLKADR(R4Y)'RO  ;PUT BLOCK’S ADDR INTO RO 
JSR PC, CLROPB “CLEAR BLOCK FOR UNIT JUST ASSIGNED 
JSR PC’ GETID *GET DRIVE I.D. 
JSR PC; GETADR *GET BAD SECTOR ADDRESSES 
MOV #1'SPASSC(RO) | ;PRESET PASS COUNT TO 1 
TST patk ‘WRITE DATA PACK ? 
REQ 2s :BR IF NOT 
MOVB PACK,SPACK(RO) ;SET READ/WRITE DATA PACK INDICATOR 
23: ASR RY j RESTORE UNIT 
ASGNY: DEC R3 *DEC UNIT C 
BEQ ASGNS *BR IF FINISHED 
INC *J NT UNIT NUMBER 
BR ASGN3 :CON 
ASGNS: 80D #4, (SP) SINERSENT RETURN 
ASGN6: HOV AUNTOFF , ASNSG im INE’ MESSAGE ADDRESS 
ASGN7: ASL RY "RY INTO WORD INDEX 
TST ORVTYP(RY) ‘UNIT PRESENT? 
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fe 415 023612 1S: 


Baies0 


BEQ 1$ 
che 420020, ‘DRVTYPCRUI™S nuit? feos P : ican eae 
id 34020, prvtvpcr¥ins RATT it St PORT ee 
BEQ 2g ;BR IF DUAL PORT RPOY 
HOV SNOTRP, ASNMSG : ADDRESS OF ’NOT RPOW’ MSG 
1S: HOV SNOTPRS , ASNMSG iBORESS OF 'NOT PRESENT’ MSG 
23: MOV BNOTSAF,ASNMSG :ADDR OF "UNIT UNSAFE’ MESSAGE 
33: ASR RY ‘RESTORE RY 
RTS PC ‘ERROR RETURN 
sROUTINE TO DEASSIGN A UNIT (’D’ COMMAND) 
DEASGN: CLR RY 
CMPB «#101, (RS) sDEASSIGN ALL UNITS ? 
BEQ o$ :BR IF 
OV #81700,R3 >SET R3 FOR ONE UNIT 
MOVB (RS) >GET UNIT NUMBER 
1S: ISTB ASNLST(R4) SAT ASTGNeD ? 
CLRB = ASNLST(R4) ‘DELETE THE UNIT FROM THE ASSIGNED LIST 
ASL RY “MAKE ADDR INTO A WORD INDEX 
HOV percent sPUT ADDRESS IN DEASSIGN LIST 
2s: DEC R3 ANY MORE UNITS ? 
BEQ 4g BR IF NOT 
gre ORS 
3S: cHPE #101, (RS) sDEASSIGN ALL UNITS ? 
MOV SUNTNOT,ASNMSG ADDR OF *NOT ASSIGNED’ MESSAGE 
a ISR PC, ASNERR :REPORT IT 
cs: MOV #8. ,R3 ;SET UNIT COUNT TO 8 
BR 1$ 
sROUTINE TO TYPE UNIT PERFORMANCE SUMMARY (°S’ COMMAND) 
SCMND: CLR RY 
CMPB =s«#101, (RS) “ALL STATISTICS ? 
BEQ 2$ ‘BR IF YES 
MOVB = (RS), R4 GET UNIT 
TSTB — ASNLST(R4) ‘SEE IF UNIT ASSIGNED 
eee is sR IF NT INTO WORD INDEX 
MOV BLKADR(R4) ,RO AOD OF Book” 
ISR PC, TYPEST TYR DRIVE STATISTICS 
MOV aLINTNOT ASNMSG ;ADOR OF "NOT ASSIGNED’ MSG 
JSR PC, ASNERR Mie ERROR MESSAGE 
: MOV 88.,R iN TC 
sé: S18 RSAC ST IF coun UNIT ASSIGNED 
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a RY NCR NIT ADDRESS 
2843 RESP aR Ae R3 DrenereN at NTER 
peel peceuG pons gre 3 NONE pas RETURN 
46 pears 020450 4S: ISR PC, STATPR We ALL STATISTICS 
105737 001234 TSTB 3E-—«oDAE “SEE IF 'DATE’ ENTERED © 
G22656 901404 SEQ 11$ ‘BR IF NOT 
5827 eee taut 001234 TYPE a spat FE ERATOR ENTERED DATE 
5828 pesess 1 001246 118: STB OPERID ‘SEE IF OPERATOR 1.0. ENTERED 
Pes pSSETe rit ? a is FREE NOT RATOR I.D.: 
ess peesre 1 at Vane TYP OPER TD Me OPERATOR I. ‘. 
5832 Oec706 104401 052561 12$: TYPE HEDLIN LINE 
53833 0227 1 037322 022774 MOV BELKO#SORVID, 6$ ’:ORIVE I.D. FIELD ADDRESS 
5934 peerae CLR Apeiy ADDRESS 
583S Oee7ee 012703 oo00ic MOV : COUNTER 
5835 Oe2726 105764 O41640 cs: TSTB Bell R4) *SEE IF DRIVE ASSIGNED 
5837 Oee7se 001423 Q ?BR IF NOT ASSIGNED 
Seas peerue fepvsy Soreeg Oooo re e, UNeTee CLEAR OLD DRIVE, NBER 
5840 peerue 104401 001 YPE — UNIT Tyee THE DRI NUMBER 
cous inee7? os Bagot 18 et F DRIVE I.D. ENTERED 
2545 BSSoe8 boi 003 BNE 10$ tae oy 1.0. PRESENT 
S844 022764 104401 OS2604 TYPE NONE 
Bees Gee770 OO0404 BR A} ONT INE 
pee 104401 LOS TYPE :TYPE THE DRIVE I.D. 
5847 022774 00000 .WORD 0 ; ADDRESS OF DRIVE I.D. FIELD HERE 
5848 O2c776 104401 OO1IES TYPE SCRLF 
Peep Gene SO Tane 7$: DE : Coenen MT Ls COUNTER 
14 BE : 
5951 062737 000226 022774 ADD NSRHEC2+4, 6S HINCREMENT OTHE MESSAGE FIELD ADDRESS 
Sese 023014 o05204 INC [INCREMENT DRIVE ADDRESS 
5853 0623016 000743 BR a: : CONTINUE 
5854 023020 104401 OO1165 8S: TYPE SCRLF : CRLF 
5855 Oe20e4% 000207 9S: RTS pC 
Soe sROUTINE TO WRITE A DATA PACK (’W’ COMMAND) 
5959 p22026 912737 177777 001232 DATAPK: MOV #-1, PACK ;SET THE ’W’ COMMAND INDICATOR 
BBEO 000137 O22140 IMP ASGAD ASSIGN REQUESTED UNIT 
5a62 
| 5863 | ROUTINE TO READ A DATA PACK (’R’ COMMAND) 
001232 REDAPK: MOV #1, PACK ;SET THE "READ’ INDICATOR 
| Be Bae em AMAR GREED nS, 
868 sROUTINE TO GET THE DRIVE ID NUMBER FROM THE OPERATOR 
| §870 010546 GETID: MOV RS, -(SP) ;SAVE_RS 
| 5871 Besed losuor ose474 TYPE —_,ENTORV CENTER DRV 1.0.’ 
| €§872 023060 142737 000007 001263 BICB = &7, UNIT+1 CLEAR OLD UNIT NUMBER 
| §873 023066 O10446 MOV R4’ =(SP) s CONVERT INDEX TO DRIVE NUMBER 
, 5874 023070 Odb216 ASR sp ‘SHIFT IT 








MAINDEC-11-DERPN-8 MACY11_27(722)_ 27-SEP-76 15:05 PAGE 137 
DERPNB. 
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5875 pe307e 152 ? 991263 BiSB (SP)+,UNIT+1 | ;LOAD NEW UNIT NUMBER 
76 104401 001262 TYPE UNIT’ > TYPE THE oor VE NUMBER 
5877 _ 19e 104401 052523 TYPE * COLON ‘TYPE A COLON ':’ 
2878 l 07 ROLIN sREAD FHE ENTRY 
023110 012605 MOY (SP)+,RS ‘GET THE ENTRY ADDRESS 
S880 Oeslle 012560 MOV (RS)+, SORVID(RO) TORE THE 1.D. 
6881 Oe23116 912560 000156 MOV ( RS)+, SDRVID+2(RO)’ ;STORE THE I.D. 
S882 Oeslee 012560 6 MOV (RS)+ "SORVID+4(RO) :STORE THE I.D. 
5883 Oe3l26 012605 MOV (SP)+.R5 5R RESTORE RS 
Ses4 23130 900207 RTS pC : RETURN 
eS sROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 8) 
5888 023132 GETADR: 
5889 O23132 010146 MOV R1,-(SP) 3 PUSH RI ON STACK 
5890 023134 010246 MOV Re, -(SP) *PUSH Re ON STACK 
5891 023136 010346 MOV R3,-(5P) >:PUSH R3 ON STACK 
5892 023140 104401 052613 TYPE  ,ENTADR ;ENTER SECTOR ADDRESSES 
5893 023144 104401 O0l2be TYPE {UNIT TYPE THE UNIT NUMBER 
Eaoy Oe3150 104401 051365 TYPE ;LINSPO *1 
5895 023154 104401 001164 TYPE SQUES QUESTION MARK 
58% 023160 012703 000020 MOV $16. .R3 ;NUNBER OF LOCATIONS IN THE TABLE TO PRESET 
5897 023164 012701 O00114 MOV #$BDSEC,R1 NCRENENT 
Seo be3170 1 AD RO,R1 BLOCK unr ING ADDRESS 
5399 1 ieee 177777 1$: MOV #-1, (R1)+ ;SET LOCATION TO 1’S 
5900 023176 005303 DEC R3 *DECREMENT TABLE SIZE COUNT 
Bane fosone fes701 00040 ce aa. RI | A ae 
5903 BBb0g yee 00015 MOV 8. ,R3 ; R OF ADURESSES IN TABLE 
5904 Oesel2 104407 2s: ROLIN *GET ADDRESS FROM OPERATOR 
S905 023214 Ol260e2 MOV (SP)+,R2 TEXT POINTER 
5906 Oe3el6 1e1¢97 000003 CMPB Ss (R2), &3 j _CONTROL C’ ENTERED ? 
5907 Oesece 0014 BEG 45 :BR IF IT WAS é 
5908 Oe3e24 012737 o000S4 o23560 MOV ? | SEPART :COMMA IS THE SEPARATOR 
5909 Oesese 004537 023432 JSR RS’ CONV NVEA *GET THE CYLINDER ADDRESS 
5910 023236 BR 3$ : TERMINATOR F (INVALID) 
591 dese40 023556 TST HOLD ;SEE IF INVALID TEXT ENTERED 
£91 1 BMI *BR IF ANY CYLINDER TEXT INVALID 
5913 Oe32e% 023727 023556 000632 CMP HOLD, #410. TS CYLINDER VALUE 
$14 92325) 10101 BHI ;BR IF NOT 
915 023256 013711 023555 HOLD, (R1) : CYLINDER VALUE TO THE TABLE 
5916 005037 023430 CLR 6$ *CLEAR THE TRACK 'CR’ SNDTEATOR 
5917 Oesebs 004537 Oe3432 JSR RS, CONVEA ;GET THE TRACK ADDRESS 
5918 Oe3e7e BR +6 i 2GR" pENTERED ENTIRE TRACK SPECIFIED 
5919 Oe3274 3430 INC “3 SET HE SECTOR’ SWITCH 
5920 023300 3556 TST HOLD : SEE IF INVALID CHARACTERS ENTERED 
5921 023304 100435 BMI 3$ *BR IF ANY WERE 
c 0767 023556 000022 CMP HOLD, #18 *SEE IF TRACK ADDRESS TOO LARGE 
5 1% 101031 BHI 3$ *BR IF IT IS 
5924 16 113761 02 000003 MOVB HOLD, 3(R1) “PUT TRACK ADDRESS INTO TABLE 
5925 005737 023430 TST 6$ iSEe IF <CR> EN TERED 
5 023330 00141 BEQ c$ T OUT I 
5 Ne333¢ 023432 ISR RS, CONVEA T SECTOR Aon $s 
6928 023336 1 BR +4 ae MUST BE ENTERED 
£929 023340 00041 BR * INVALID, SEPARATOR USED 


*SEE IF tNVALID CHARACTER ENTERED 


wm 
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e 
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5986 ; TYPEOUT ASSIGN/DEASSIGN ERROR MESSAGE 





TIN fics 
S931 02334 100414 BMI 3$ :BR IF ONE WAS 
023350 37e? 023556 000025 CMP HOLD, #21. SEE IF SECTOR ADDRESS TOO LARGE 
101010 BHI 3$ ‘BR IF IT IS 
5934 023360 113761 023556 ocoo00e MOVB HOLD, 2(R1) ‘PUT SECTOR ADDRESS INTO TASLE 
5935 0232 S$: DEC R3 !MORE ENTRIES ? 
5935 0233 141 BEQ 4g ;BR IF NOT 
5937 023372 962701 oocco4 ADD #4, Ri s NCETENT THE TABLE POINTER 
5938 023376 000705 BR 2 NTINUE 
5939 023400 012711 177777 23: MOV #-1, (RI) >CLEAR PRESENT TABLE ENTRY 
5940 23404 O0le761 177777 o00002 MOV #-12(R1) ;CLEAR PRESENT TABLE ENTRY 
5941 Oes4l2 104401 OS2646 TYPE BADENT j INVALID ENTRY’ 
este e416 000675 - BR 2s TRY AGAIN 
23d3 023420 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
594s O1e602 MOV (SP)+/Re ;;POP STACK INTO Re 
So46 O2s4e4 012601 MOV (5P}+°RI :POP STACK INTO RI 
S947 Oe3426 50207 RTS PC RET TURN 
5ai3 023430 00000 6S: .WORD 0 ;TRACK <CR> INDICATOR 
5951 sROUTINE TO CONVERT INPUT DECIMAL ASCII NUMBERS TO BINARY 
5952 : RETURN IF TERMINATOR (CR); RETURN +2 IF SEPARATOR (,). 
2333 : R2 CONTAINS ADDRESS OF ASCII STRING 
5955 023432 005037 022556 CONVEA: CLR HOLD ;CLEAR WORKING LOCATION 
5955 023436 105712 1S: TSTa ~—s« CR) “SEE IF TERMINAT 
5957 023440 O01 BEQ S$ *BR IF TERMINATOR 
5958 Oes44e 121237 023560 CMPB =: (R2) , SEPART "LOOK FOR THE SEPARATOR 
5959 23446 001437 BEQ 4 BR IF SEPARATOR 
5960 des450 1 er 000060 CMPB =s-« (2), #0 *CHARATER GREATER OR EQUAL TO 0 ? 
5961 1 BLO IF NOT 
5962 023456 121227 000072 CNPB ss (Re), #”: tIF CHARACTER GREATER THAN 9 ? 
5963 Deb BHIS 3$ -BR IF IT 
5964 023556 S HOLD ‘VALUE IN ING LOCATION 
coer SSau7> Dosa? gee oo 30h FW "HOLD? BY 2 
Bary DSSuTE DIarae DSseee Roy HocD, -cspr EAH TRE aloo OYE ue 
| §968 Oe3S02 006337 023556 ASL HOLD ‘MULTIPLY "HOLD’ AGAI 
| 5969 D250 006337 023556 ASL HOLD *MULTIPLY 'HOLD’ BY 2 AGAIN 
5870 02351 023556 ADD (SP)+,HOLD ;ADD THE "2 TIMES’ VALUE 
5971 023516 O0S046 2s: CLR -(SP) “CLEAR THE ST 
2276 besoed lel MOVB (Re), (SP) :PUT ‘THE TER ON THE STACK 
INC j INCREME THE POINTER 
| 5974 023524 142716 O00060 BICB #60, (SP) ;CLE THE UPPER BITS 
| §975 623530 023556 ADD (SP5+, HOLD sADD THE NEW CHARACTER, 
6976 023534 BR 15 GET THE NEXT CHARACTE 
5977 023536 012737 177777 023556 3S: MOV #-1,HOLD *SET BAD CHARACTER ENBICATOR 
5 bese¥s 000403 BR c$ 3EX IT 
| io Bes ee ome RENT TE FEIN ron seroaron ne 
eae! B536e4 icing Ss: TS R HINcRER 
| 6983 023556 000000 HOLD: .WORD O sWORKING LOCATION FOR THE CONVERSION 
: e284 023560 000000 SEPART: . WORD "SEPARATOR CHARACTER (IN ASCII) GOES HERE 
! 
} 
i 
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5987 
5988 023562 142737 000007 001263 ASNERR: BICB 4#7,UNIT+1 ; CLEAR PREVIOUS DRIVE NUMBER 
2383 023570 150437 001263 BIS8 RY _UNIT+ PRESENT DRIVE NUMBER 
023574 104401 052331 TYPE QUES QUEST ION MARK 
5991 O23600 104401 051367 TYPE §;UNTMSG TYP 
2o3e Oe 104401 O01262 TYPE {UNIT *U NUMBER 
5 023610 104401 TYPE :TYPE SPECIFIC MESSAGE 
5994 Oe3ble oocc00 ASNMSG: .WORD 0 ‘MESSAGE ADDRESS 
599S 023614 104401 O01165 TYPE SCRLF 
2238 023620 060207 RTS PC 
2238 ;DEASSIGN A UNIT IF A FATAL ERROR OCCURS 
6000 O23622 o0s004 DROP: CLR RY sCLEAR RY FOR UNIT NUMBER 
B01 Deabe4 1 MOVB (RC), RY ; HOVE UNIT N R 
105064 041640 CLRB  ASNLST(RY) ;REMOVE UNIT FROM ASSIGNED LIST 
£003 023632 006304 ASL RY “MAKE UNIT NUMBER INTO A TABLE INDEX 
6004 023634 010064 O41650 MOV RO,DUNIT(RY) § ;PUT UNIT IN DROP LIST 
6005 023640 104401 901165 TYPE  ,SCRLF 
£006 44 104401 001165 TYPE  /SCRLF 
£007 D23650 104401 051727 TYPE ’ DROPNG $TYPE. DROPPING UNIT’ 
ae oS3eeq 1ea799 pBeoc? 001263 BICB Pr UNtT T+1 *CLEAR THE UNIT NUMBER 
6910 023666 151037 001263 BISB (RO), UNIT+ *SET THE UNIT NUMBER 
6011 023672 104401 ODle62 TYPE UNI ‘TYPE THE UNIT NUMBER 
6012 023676 104401 OO1IES TYPE * SCRLF 
pote RTS Pc 
BOIS sROUTINE TO DEASSIGN A UNIT IF ERRORS BECOMES EXCESSIVE 
pats 023704 032737 OOCD20 001140 ABNRML: BIT #SWO4, SWR ;SEE IF SWITCH 4 SET 
pote ose. 4 eee 001302 ocoo0b2 as MAXER, STOTAL (RO) sBR IE IT, TOTAL ERROR VALUE 
atc BEG DROP yo THE UNIT IF IT EXCEEDS MAX 
602i 023724 000207 18: RTS RETURN 
Bese ;ROUTINE TO CHECK FOR END OF ie! AND END OF TEST 
Ese OS 023726 005737 001322 NRML: TST ENDE sEND OF PASS DETERMINED BY SEEKS OR WORDS ? 
ge sG poanae 000060 001270 ep $READ+2(RO), enocdie’’ eee Ce RDS READ COUNT 
ppse pssea3 sate red a cel BR IF’ MSW SRERY THANE LIM Rit 
6029 023744 103405 0 RM} sBR IE MSW LESS THAN LIMIT 
eta? bes7e 026037 O000S6 001266 C SREAD (RO), ENDCON’ aacHeck LUSH LSW AGAINST LIMIT 
103012 BHIS QUAL OR GREATER 
023756 000506 BR NEE FEXIT 
ee es Ot 000050 001274 NRMLI: cP SPOSIT#2(RO) => ASHECK NSH. MSW OF ubeek k COUNT 
Ebae puore BLO F MSW L Poe THAN LIntT 
| 6036 nadie 00004 001272 CMP EE, ENOSEK CK LSW OF SEEK COUN 
| §037 24000 103975 ; - BLO ms x. Te IF LSW LESS THAN CINIT 
| Bhs BSupne tBuupt peizes om pe OF PASS FOR THE UNIT 
6040 Oe40l2 O16046 000074 Hoy fa -(SP)” :PUT PASS COUNT ON THE STA 
6041 Devo16 104405 TYPDS sCONVERT PASS COUNT TO BECINEL AND TYPE IT 
6042 Oe 142737 000007 001263 BICB #7,UNIT+1 “CLEAR THE UNIT NUMBER 
| 
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a 


E 


eee 


8 


012605 


001263 
c0c020 


C00074 
052040 
boi ies 


001262 
001165 
021176 


oocd4e 
900010 


001149 
001276 


1$: 


es: 


3$: 


NRMLX: 
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;SET_THE UNIT NUMBER 
i WITCH 4 SET ? 


; SEE 4 AT END OF TEST 
"END OF TEST’ 
in F UNBER 
: DEASSIGN THE DRIVE 
‘ORT VE NIMBER 
Dee ie UNIT’S STATISTICS 


4 
UNIT? S BLOCK ADDRESS 
5 ADD THE 2 ae AODR OF SECTIONS TO CLEAR 
NUMBER OF LOCNS TO BE CLEARED 
ERROR, COUNTERS NOT CLEARED) 
;DE CREMENT THE LOCATION COUNTER 
IF MORE TO GO 


+ RESTORE RY 
TORE R3 
HINCRERENT THE PASS COUNT 


;CLEAR RY FOR CRIVE NUMBER 

;MOVE DRIVE NUMBER 

DELETE DRIVE FROM ASSIGNED LIST 
MAKE DRIVE NUMBER INTO TABLE INDEX 
jPUT BLOCK ADDRESS INTO DROP LIST 


;ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 


GETREM: 


LINKDV: 
M 


BiSB (RO), UNIT+1 
IT ‘ WO4, SWR 
NE 
CNP SPASSCCRO), Past 
Rte, NDTST 
TYPE § /DRNUM 
TYP rN 
TYP CRLF 
BR $ 
TYPE §, DRNUM 
TYPE UNIT 
TYPE SCRLF 
JSR PC, TYBEST 
MOV R3,-(SP) 
MOV Ri, (SP) 
MOV 
ADD asorenc, RY 
MOV »R3 
CLR ( ats 
DEC R3 
BNE 2s 
MOV (3P)+, RY 
MOV (SP)+'R3 
INC $Passt(RO) 
BR NRMLX 
TYPE SCRLF 
CLR RY 
MOVB (RO), R4 
CLRB — ASNLST(R4) 
ASL 4 
MOV RO, DUNIT(RY) 
RTS PC 
MOV $LONUM, -(SP) 
MOV SHINUM. -(SP) 
MOV RS, -(SP) 
JSR PC’ LINK 
MOV (SP)+,R5 
TST (SP)+ 
NOP 
RTS PC 


; STORE pawon NUMBER ON THE STACK FOR DIVIDE 
PUT THE ABIVISOR ONTO THE STACK 

DIVIDE THE NUMBERS 

;PUT THE REMAINDER INTO RS 

SADJUST THE STACK POINTER 

:FOR ING HALT 


. sLINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE 
THIS ROUTINE ALLOWS THE *SYSMAC’ DIVIDE ROUTINE 
CALLING SEQUENCE TO BE USED 








et ene 


J. 


Bed 


eeccesse 
Sagat 
So R2BRes 


8 


to 
be hs be 


KEG PKK KML PKK MONK MN KOKOMO OMOMMOMMOOVOOOrOrrrrwro*d 
-—oOoo 


Os b= b= b> b= Be bs ae ban an ban Bn ae Be be ae be Bn hme Be Bae bo me me Bae Bs be bs b= ne bs Fe ban Bw Be Fs ne fn fan Fs fe P02 b= fe h-0 f-8 h-0 fas 8 he 0 be 
PAA a Rt eet trop antitetattbet ati tatiitete Mitte tath Mathy pets Materia Met et Ste etrct cist ott pert at thst a 


000016 


000020 
000022 


pease 
00002 
000022 


oo0ode 
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MOLWMO 


;,PUSH RO ON STACK 
;VIVISOR 
;OTHER DIVISOR WORD 
; UPPER Miah WORD 
LOWER DIVIDEND WORD 
CLEAR OTHER DIVIDEND REGISTERS 


oOo 
Dwwo 


Wrur-OvU UH 
we OS 


G DIV 
;REMAINDER ON THE STACK 
OT! ON THE 


ww rT 

*¥44355N0= 
- 2 =<. + = on r™ 

—~DDDDD 

nue 

0 

— 


‘ib VE RETURN UP THE STACK 


;PERFORM THE INITIAL SUBTRACTION 


;ADD -(DIVISOR) 
;SET “CARRY” 


s800 $<DIVISOR) 









0 TO THE 


;;POP ST NT 
:POP STACK INTO Re 


; COUNTER FOR DIVISION CYCLES 


gROER 
iLO Oe DIVISOR TO THE STACK 
;VERSION OF THE DIVISOR 





;1F CARRY THEN OVERFLOW HAS OCCURRED 
;THIS IS A LONGER LASTING CARRY BIT 


; TEST “CARRY® INDICATOR 
IF NO “CARRY” THEN ADD ELSE SUBTRACT 
CLEAR UP FOR NEXT TIME 


;SET_“CARRY® 
Teor THE UPDATE INDICATOR 
;IF ZERO FORGET IT 







a en ne eo 
‘ 
; 


Peplealcalealealealealeslealsalealeaslealealealealealeslealealealealealealealislialesleslealesloalsalealealealealealealealealsalealeale al 
ee be ae Fe bn 2 bs bn bs bs bs he bs bs be bs bs Bs be Be Pe Fs Bs fe Bae Bene fn Fo Fo bs bo b= = 2 Fo he Fe fe fs Be 
ee ae ee eee Tae eee are ee, 


BoBRes 


eet oe 
DERPNB.P 
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012746 
00 


000006 


000010 


oocods 


000020 
000016 


ao0oie 
oc0020 


000041 


M.DP4Y4: 


M.DPSO: 


;LINK SUBROUTINE TO MULTIPLY ROUTINE ’M.DPIM’ 


LINKML: 


h OPIN: 


M.OPOL: 
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NC R3 ; f ;NO CARRY POSS TALE HERE 
EC (SP) s= :DECREMENT COUNT 

Hat M.DP4O ;BRANCH IF MORE TO 0G 
BCS M.DP4Y4 

ADD RS,R1 

ADC RO 

ADD R4Y,RO 

CLC 

ROL R3 

ay #10,SP ;ADJUST STACK BY 4 WORDS 

RTS PC 

ADD #6, SP 

SEV 

RTS PC 


MOV RO, -(SP) ;;PUSH RO ON STACK 
MOV R1,-(5P) ;3PUSH R1 ON STACK 

MOV R2;-(SP) >:PUSH Re ON STACK 

MOV R3,-(SP) *:PUSH R39 ON STACK 

MOV RY! -(SP) 3 ;PUSH R4 ON STACK 

MOV RS; -(SP) PUSH RS ON 

CLR R2 ‘PUT MULTIPLIER IN Re & R3 
MOV g0(SP),R3 

CLR 4 sPUT MULTIPLICAND IN R4 & RS 
Mop 1B CSP eR sMULTIPLY RO. oft Y Re & R3 
MOV ata BH co ORDER uct 

MOV R3, 20( SP) LOW ORDE! 

MOV (SP)+,RS : POP Or AcK INTO i 

MOV (5P)+>R4 *:POP STACK INTO R 

MOV (SP)+,R3 *:POP STACK INTO R3 

MOV (SP)+'Re 2:POP STACK INTO Re 

MOV (SP)+'RI *:POP STACK INTO RI 

Ov (SP)+, RO *:POP STACK INTO RO 


SUBROUTINE TO MULTIPLY TWO DOUBLE PRECISION INTEGERS 
USES ALL REGISTERS (RO-RS) 


ENTER WITH ash PC,M. OPIN 
rg ULTIPLIER’ 








ULTIPLICAND IN R4-RS 
RESULT RETURNED tN RO-R1-Re-R3 
cLR a ;CLEAR HIGH ORDER WORDS 
MOV #41,-(SP) ;MOVE 33 DEC TO COUNTER 
mi 








eT Cerne S 
DERPNB.P 


ll ere 
le 024574 
13 024576 
14 

1S 0e4 

18 024604 
17 O24606 
18 
13 


024610 
O2461e 
024614 
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006002 


ities 


012737 


1104 
113704 
016605 


o00004 
000006 
000007 
024736 


000004 
oo0ced 


000040 


000060 
oo0004 
024736 


000001 
000006 
000005 


025133 


0eS132 
025131 
000010 


024736 
024736 
024736 


024726 
024726 


M.DPO2: 


;ROUTINE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


S$RPZRE: 
$SRPZRY: 
S$RPZRS: 


$RPZRO: 
RPZERO: 


1$: 


es: 


3$: 


4$: 


RPZRC: 


PRTOCT: 


MOV 


- WORD 


; CONVERT AN OCTAL NUMBER TO ASCII AND ‘wena IT 
(ROUTINE ADAPTED FROM ’STYPOC’) 


cite 
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R4, RO 
ase 
M.DPOL 
(SP)+ 
po 


#4, RPZRC 
RPZERO 


0 
(SP)+, 
(SP +, 

PC 


~w 
Oo 


SP) 


1,FILLO 
a8 OnGDE HL 
#5; OCNT 
R3,-(SP) 
RY, ~($P) 
(SP) 
OnOOESI, R4 
od RY 
R4’ OMODE 
FILLO,R4Y 
10(SP3,RS 


;PUT A ZERO 


?RE 
sMOVE RETURN ADDRESS 
? RETURN 


;SHIFT TO ADD 

;NO CARRY NO ADD 

SADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL 
‘DECRENENT COUNTER 

SRENOVE THE COUNTER 















;SETUP_TO TYPE 8 SIGNIFICANT DIGITS 
TYPE THE VALU 

SETUP _TO TYPE 4 SIGNIFICANT DIGITS 
TYPE THE VALU 

Fa TO Oh 3 SIGNIFICANT DIGITS 
: SETUP 10 TYPE 10 SIGNIFICANT DIGITS 
SAVE RO 


sADDRESS OF NUMBER TO RO 
zB YT5 EQUAL TO ASCII ’0’ ? 


REPLACE THE ZERO ge A_SPACE 
INCREMENT THE BYTE A 

;GO BACK_AND LOOK FOR MORE LEADING ZEROS 
SEE IF ZERO BYTE TERMINATOR 


:BR IF NOT 
:BACKUP_STRING POINTER 














RO BAC 
;PUT ADDRESS IN LOCATION FOR TYPEOUT 
; BEGINNING OF SIGNIFICANT DIGITS 


YPE THE NUMBER 
t ADDRESS OF NUMBER 








;OFFSET FOR CONVERTED DIGITS HERE 











;SET THE ZERO FILL SWITCH 
SET FOR SIX(6) DIGITS 
;SET THE ITERATION COUNT 
3 SAVE R3 


iggy THe NUMBER OF DIGITS TO TYPE 
sSuSTRAGT IT FOR MAX. ALLOWED 
;SAVE_IT FOR US 


;GET THE ZERO FILL SWITCH 
;PICKUP THE INPUT NUMBER 








6267 
68 


3 Coto to wear eoEr es 
-_ 


mB 
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005003 


025132 
177770 


000060 


177776 
000200 
025156 
025636 


177776 


001140 
177776 


O2S224 
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1$: - 
2s: ROL 


3: ROL 


us: NC 
S$: BIS 


73: 
6$: MOV 


8$: - BYTE 


OCNT: 
FILLO: 
OMODE: 


;ROUTINE TO TYPE AT PRIORITY 4 


TYPRI4: MOV 
MOV 

MOV 
R 
1S: . WOR’ 
RTS 


ROUTINE te pore MESSAGES TO EITHER THE PRINTER (IF AVAILABLE) OR 
SDSPLY RUST BE DEFINED BY ’SETTRAP’ 
3 INHIBIT TYPEOUTS 


T 
CHA NGE THE PRIORITY TO 4 
PRINTER ON THE SYSTEM ? 


;BR_IF NOT 
GET THE MESSAGE ADDRESS 
T THE PROC STATUS ON THE STACK 


:NOTE: 
SDSPLY: 
1$: MOV 


oo0o00 T-.-.-—.-—muw 


aePS,-(SP) 
#200 aePS 
(RS)+. 15 
PC, STHPE 


RS 


#SH13, SUR 
#200, 28PS 
SPRFLG 


aePS, -(SP) 
PC, SPRINT 


;CLEAR THE oyreyt WORD 
MS8 INTO “C” 


;ROTATE 


;GET LSB OF THIS ,DIGIT 
:TYPE THIS DIGIT? 


T9 


‘FORM THIS DIGIT 


;BR_IF_NO 
GET RID OF JUNK 
TEST FOR 
; SUPPRESS THIS 0? 


DON?T ciPPRESS ANYMORE 0’°S 
: MAKE fale DIGIT ASCII 
KE A te Lit NOT ALREADY 


:MA 
: SAVE F 


YPI 
:G0 PRINT THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 


:BR_IF DONE 


INSURE LAST DIGIT ISN’T A BLANK 
GO DO THE LAST DIGIT 
; RESTORE ae 


; RESTORE 


; RESTORE Rg 
;SET UP THE STACK FOR RETURNING 


N 
t STORAGE FOR ASCII DIGIT 
: TERMINATOR FOS Tee ROUTINE 


OCTAL DIGIT 
; ZERO 


FILL SWI1CH 
;NUMBER OF DIGITS TO TYPE 


;SAVE THE PRESENT STATUS 
CHANGE THE PRIORITY TO 4 
ADDRESS 


: MESSA F 
PE T 


;TYPE THE MESSAGE 
snESsAGE ADDRESS GOES HERE 


SPRINT THE MESSAGE 
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£323 2 2s: WORD 0 “MESSAGE ADDRESS GOES HERE 
6324 O2c226 1 BR 5$ EXIT 
G3eS5 025230 017637 O0000D oese4e 38: MOV a(SP),4$ :SET UP TO TYPE THE MESSAGE 
&325 025236 013 177776 MOV aes, -(SP) PUT THE PROC STATUS ON THE STACK 
S327 Dese42 O047S7 25636 ISR BC, $type TYPE THE MES 
6328 O25246 900000 4$: -WORD «0 MESSAGE ADDRESS GCES HERE 
£239 32716 oooco2 ss: ADD 82, (SP) *RETURN ADDRESS 
6330 o25254 do0002 RTI 
b32 ;SAVE THE REGISTERS IF A DRIVER ERROR CALL 
F334 333 025256 010537 001260 ERENTR: MOV RS, ATTN ;SAVE THE ATTENTION REGISTER CONTENTS 
6335 O25262 010137 001256 MOV R1; DRIVE -DR 
6236 O25266 p37 37 g20006 001140 SIT #SW13, SWR ‘INHIBIT PRINTOUTS ? 
6337 Oese74 O01 BNE 1$ :8 YES 
6338 025278 O04737 021402 ISR PC, STINE :TYPE THE TIME 
6339 025302 1$: RTS PC 
P34 a sROUTINE TO GET AN OCTAL PARAMETER 
p24 ;RETURN +2 IF CARRIAGE RETURN ENTERED 
6344 O25304 O1I646 GETOCT: MOV (SP), -(SP) sPROVIDE SPACE FOR THE 
6345 025306 104407 1$: ROLIN *READ AN ASCIZ LINE 
| 6246 Se5310 012600 MOV (SP)4,R0 ‘GET ADDRESS OF 1ST CHARACTER 
| §347 O25312 010037 oes4is MOV RO,S$ AND SA 
' §348 O25316 105710 TSTS = (ROD ?FIRST CHARACTER A ’CR’ 
| §349 25320 00144 BEQ *BR IF IT IS 
| 6350 OeSsee 122710 ooo003 CMPB sag, (RO) :CONTROL C ? 
| §351 925326 001443 BEG ‘BR IF IT IS 
| §352 025330 905001 CLR R1 *CLEAR DATA WORD 
| 8353 025332 005002 CLR Re 
| 6354 bess 112046 23: MOVB (RO) +, =(SP) s PICKUP THIS CHARACTER 
| §355 001420 BEG 33 *IF ZERO GET OUT 
| €356 O25340 122716 000060 CMPB sé, (SP) :MAKE SURE THIS CHARACTER 
| 6357 G25344 003021 BGT 43 21S AN OCTAL DIGIT 
| §358 O25246 122716 009067 CMPB saw’, (SP) 
| €359 O253s2 O02416 BLT 4§ 
| €360 925354 006301 ASL Ri 3#2 
| 6361 025356 006102 ROL Re es 
pees p5ese5 ested ROL ze : 
| 6364 025364 006301 ASL RI #8 
| 6365 025366 006102 ROL Re 
| 6366 025370 042716 177770 BIC 8107, (SP) sSTRIP THE ASCII JUNK 
| 6367 025374 62601 ADD (SP)4,R1 ;ADD IN THIS DIGIT 
| §368 025376 000756 BR 2 
| §369 O25400 005726 38: TST (SP)+ CLEAN TERMINATOR FROM STACK 
_ §370 OeS402 O10166 ocoDode MOV R1,2(SP) i SAV THE RESULT 
£371 bese 12 BR 7$ 
| §372 O25410 005726 4$: TST (SP)+ ‘Gem PARTIAL FRON STACK 
| §373 O2S4l2 105010 cLRB8 =-« (ROD A TERMI 
| 6374 025414 io4a0l TYPE -TYPE UP he THE BAD CHAR. 
6275 025416 cs: .WORD O 
6376 O25420 104401 OO1164 TYPE SQUES es “CR” & “LF” 
| §377 O2542e4 000730 BR 1$ AGAIN 
£378 Oe54e6 Oleble 6S: MOV (SP)+, (SP) RESTORE THE PC 











En rn EE 
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o2s4 716 o00002 auD —s- #2, (SP) SINCREMENT RETURN 
te B38 < 7S: RTS PE SRETU 
25436 000137 ooe2so 8§: JMP — ENTPR :CONTROL ¢ ENTERED 


;ROUTINE TO GET DECIMAL PARAMETERS 
;RETURN +2 IF CARRIAGE RETURN ENTERED 


o2s442 O1le46 GETDEC: MOV (SP), -(SP) sPROVIDE SPACE FOR 
o25444 104407 13: ROLIN "READ AN ASCIZ LINE 
Oes44e 9:2600 (SP)+,RO SADDRESS OF 1ST CHAR. 
g254S50 010037 oesss2 MOY RO.6$ :SAVE IN CASE OF BAD INPUT 
025454 105710 TSTB Ss CRO) :FIRST CHARACTER A CR’ ? 
o2s4S— 001441 SEQ $ :BR IF IT IS 

122719 000003 CMPB «83, (RO) ;CONTROL_C ? 

~e4 OO1442 BEQ 9s ‘BR IF IT 15 

OOSO46 CLR -(SP) :CLEAR DATA WORD 
025470 112001 23: MOVB  (RO)+,R1 :PICKUP THIS CHARACTER 
025472 o0i4e21 5EQ 4 GET OUT IF ZER 
025474 122701 oo0060 CMPB. sé’, R11 !MAKE SURE THIS CHARACTER 
025500 90302! BGT c$ :IS A DIGIT BETWEEN DO 3 9 
026502 122701 000071 CMPB sa’, RI 
O25506 Oce416 BLT S$ 
025510 OO631E ASL (SP) :#2 
O25Sl2 O1le4e MOV (SP) ,-(SP) ‘SAVE FOR LATER 
025514 O06316 ASL (SP) #4 
025516 O06316 ASL (SP) :#8. 
062616 ADD (SP)+, (SP) #10. 
025522 192410 BVS S$ “OVERFLOW ISN’T ALLOWED 
H25524 162701 000060 Sus #’°0,R1 STRIP AWAY THE ASCII JUNK 
D60116 ADD R1, (SP) *ADD IN THIS DIGIT 
025532 102404 BYS S$ :OVERFLOW ISN’T ALLOWED 
025534 00755 - BR 2$ *L00 
025536 012666 o00002 4§: MOV (SP}+,2(SP) :SAVE THE RESULT 
O2ess42 000412 BR as “EXIT 
025544 005726 Ss: TST (SP )+ *CLEAN PARTIAL NUMBER FROM STACK 
025546 105010 cirB =_-« (RD) *SET A TERMINATOR 
025550 104401 TYPE ?TYPE THE INPUT UP TO BAD CHAR. 
025552 00000 tS: .WORD O *POINTER GOES HERE 
025554 104401 O01164 TYPE SQUES 29% SCR” ENi Ee 
925560 009731 BR {$ TRY AGAIN 
025562 912616 73: MOV (SP)+, (SP) “RESTORE THE PC 
025564 O62716 oorooe ADD #2, (SP) INCREMENT THE RETURN 
025570 000207 gS: RTS PC > RETURN 
025572 000137 ocozes0 9S: JMP ENTPR :CONTROL C ENTERED 


ss REEF FFRE ERS SESS EREF ELS LE LESERAEE SEL LEREFRELPREELLESS SER HLEERBE 
.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 

3 #CALL 
: MOV SNUMADR, -(SP) FIRST ADDRESS OF ASCIZ STRING 
* JSR PC, a8SSUPRS 


‘NOTE: ROUTINE MODIFIED FROM THE *SYSMAC’ ROUTINE 
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6435 O25576 : SSUPRS: MUV RO, -(SP) :SAVE RO 

b438 600 ipb08 : 090004 “ HOV 4S), RO ea THE F POINTER 

64 peepee ite BEQ 2s ‘BR I 

64 10 1ee7e0 ocooso CMPS =—s«a8#0, (RO) 215 THIS AN ASCII "0" ” 

544 14 061 BEQ 1$ :BR IF YES 

6441 625616 905300 2$: NEC RO ‘BACKUP BY "1" 

6442 025620 010037 o2s626 MOV RO, 3$ :SAVE FOR TYPING 

5443 025624 1044] DISPLY :GO PRINT 

B444 O25626 eas 38: -WORD 0 "ASCIZ POINTER GOES HERE 

S445 025630 912600 MOV (SP)+,RO : ESTORE RO 

£446 O2c632 O1e616 MOV (SP)+! (SP) "RESTORE THE STACK 

ane 025624 000207 RTS PC : RETURN 

pie 33 SHEE REPHRESFLERES HEELS SETSPLEL SSSR PELSS FEF ELSES SES ELE LEE SE ESE E ES SSE 

a .SBTTL TYPE ROUTINE 

6453 ;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

6454 ssTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

guts #NOTEL: SNUL PE ONTAING THE SHARACTER TO BE USED As THE” FILLER CHARACTER. 

£456 ENOTES: sriits CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

B45? eee SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

6459 #CALL: 

B40 #1) USING A TRAP INSTRUCTION i 

bbl = TYPE §,MESADR sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

BYES | + TYPE 

6464 + MESADR 

S465 : 

64665 :%2) USING A JSR INSTRUCTION 

£467 1% MOV PS, -(5P) ;PUSH PROCESSOR STATUS WORD ON THE STACK 

5458 + JSR PC’ STYPE CALL T YPE ROUTINE 

a * MESADOR ?FIRST ADRESS OF MESSAGE 

6471 025636 105737 001157 STYPE: TSTB $TPFLG :IS THERE A TERMINAL? 

6472 O25642 10000¢ BPL 1$ ‘BR IF YES 

6473 O2s644 O00000 HALT ;HALT HERE IF NO TERMINAL 

6474 92564 000407 BR 3$ * LEAVE 

6475 25650 910046 1$ MOV RO, -(SP) VE RO 
025652 017600 00002 MOV aetsp),RO GET ADDRESS OF ASCIZ STRING 

6477 O25656 112046 2s MOVB = (RO)+,-(SP) ‘PUSH CHARACTER TO BE TYPED ONTO STACK 
Desb60 001005 BNE 4§ *BR IF IT ISNT THE TERMINATO 

e473 005726 TST (SP)+ ‘IF TERMINATOR POP IT OFF THE STACK 

Euet eee B55 te oooo02 3s AbD if eph° RESTORE RO PC 

£4e2 peepee oodo0e2 RTI RETURN 

6483 025674 004737 025726 4$: JSR PC.7§ GO TYPE TH 1g ¢ HARACTER 

6484 025700 123726 OO1IS6 S$: CMPB Os SF ELL, (SP)+ :IS IT TIME FOR FILLER CHARS. ? 

6485 025704 001364 BNE 2S *TF NO GO GET NEXT CHAR. 

6486 025706 01374 001154 MOV SNULL, -(SP) *GET # OF FILLER CHARS. NEEDED 

6487 "AND THE NULL CHAR. , 

6488 025712 105366 000901 6S: DECB =-«1( SP) *DOES A NULL NEED TO BE TYPED? 

6489 025716 002770 BLT c$ *BR IF NO--GO POP THE NULL OFF OF STACK 

£490 025720 004737 025726 ISR PC,7$ *GO TYPE A NULL 
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TYPE ROUTINE 
6491 ges7ee a BH 6S sLOOF 
6492 025726 1037 1$321 7$: TSTB =: ASTPS WAIT UNTIL PRINTER IS READY 
6433 0257 PL 7§ 
494 D257 4 1OReS8 02002 153210 MOVB  2(SP),a$TPB LOAD CHAR TO BE TYPED INTO DATA REG. 
Bg 742 000207 RTS PC 
pias H s ELARAFSRAALELALELARELAEFE SLAF REF SRSELLHFLERELLELELELREAAELELELE 
5433 .SBTTL PRINT ROUTINE 
6501 x BROUTINE TO PRINT ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE 
Een t SCALL: 
£504 #1) USING A TRAP INSTRUCTION 
Bats i DISPLY ,MESADR sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
6507 :#0R 
£508 te PRINT 
et + MESADR 
6511 92) USING A JSR INSTRUCTION 
6512 ti MOV PS, -(SP) : PUSH PROCESSOR STATUS WORD ON THE STACK 
6513 1% ISR PC; SPRINT CALL PRINT ROUTINE 
ae 1% MESADOR FIRST ADRESS OF MESSAGE 
6516 025744 005737 001212 SPRINT: TST SPRFLG :IS THERE A PRINTER 
B51 025750 1N9002 EPL 1$ “BR IF YES 
6519 sae eRe BR 75 sRETURN 8 TYPE INSTEAD 
6520 025756 por 153232 18: TST a$LSCS *PRINTER ERROR ? 
6521 O25762 100012 BPL BR IF NO ERROR. 
6522 025764 005737 001220 TST SPRTER S ERROR SE T BEFORE ? 
£523 025770 001004 BNE 75 BR IF YES, EXIT & TYPE INSTEAD 
6524 005137 001220 COM SPRTER :SET PRINTER ERROR FLAG 
6525 025776 104401 052333 TYPE PRTATN ?TYPE ’PRINTER ATTENTION’ 
bbb 026002 06271 75 4, (SP) ; INCREMENT RETURN TO GO TO TYPE ROUTINE 
esa RTI * RETURN 
£528 1 001220 6$ SPRTER cuter P PRINTER ERROR FLAG 
6530 SeEDIe Bie ; ooo0002 HOY 3215p), Ro OF ASCI TRING 
6521 TST (SP) Stee POINTER D 
6532 O260e4 112016 2s MOVB (RO)+, (SP) ! CHARAC ER T 0 BE TYPED ON ONTO THE STACK. 
eae mb. ve fate, Ob TPIPTE src 
Ol MOV (ep) RO RESTORE 
6526 O26034 062716 OD00002 3S: ADD #2, (SP) $a UST RETURN PC 
fea, Bsepus Goa73? Be 
£538 737 026050 4§: JSR PC,SS PRINT THIS CHARACTER 
6539 O2b04E BR s ;GET NEXT CHAR 
6540 026050 read 153140 Ss: STB LSCS ‘WAIT UNTIL PRINTER READY 
6541 026054 100375 BPL 
6542 O26056 116677 O00002 153132 MOVB 2(5P), QSLSDB §;LOAD CHAR TO BE PRINTED INTO DATA REG 
S43 026064 bobs? RTS 
Ze $3 REA RKERSRHEAALEARRAA AA LAALAL RELA RAL ARAAREAERAHRRALRALKRARLRLAARELE 





ee Oe — — —_ ~—— ee a a ne nee = oe ee = ee 
» ———2s a —— —_— eae 
' 
j 
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TTY INPUT ROUTINE 
6547 -SBTTL TY INPUT ROUTINE 


6549 ;#TK ENUT IG. ie ROUTINE 
6550 THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
6551 SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOSRD INTERRUPT 





£5S2 } 
6553 > #CALL ; 
6554 :% ISR PC, STKINT 
a4 % RETURN 
6557 O26066 005037 026260 $TKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
6558 026072 912737 Oebe64 o26262 MOV #STK QIN sMOVE THE STARTING ADDRESS 
6559 026190 012737 026130 O00060 MOV ee TKeey TATE ; INITIALIZE THE KEYBOARD VECTOR 
6560 026106 012737 000062 MOV #200 aatkKVEC+e "BR" LEVEL 
6561 O26114 005777 153075 _ TST aSTK *CLEAR DONE FLAG 
6562 O261e0 012777 OO0100 is30l6 MOV 881706, STKS “ENABLE INTERRUPT 
B5E3 G26126 000207 RTS PC ‘RETURN TO CALLER 
6565S ;#TK SERVICE ROUTINE 
S566 ;#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
6558 026130 11774% 153012 érKsrv: a aSTKB, -(SP) sPICKUP THE CHARACTER 
6569 026134 O42716 177600 BIC atC17?, (SP) :STRIP THE JUNK 
6570 026140 beeee0 TST STK E IF FIRST CHARACTER 
6571 026144 001004 BNE BR 
6572 Deb 14g ony? 37 021402 ISR PC, STIME ; TYPE THE TIME 
6573 Oe61S2 104401 001165 TYPE 
6574 026156 111637 026256 1S: move {5P),Ss ECHO THE CHARACTER 
6575 Deblee 104401 26256 TYPE 
6576 O26165 022716 OO0015 CMP 15, (SP) ; CARRIAGE RETURN ? 
6577 Oebl7e 001416 BEQ 3$ ;BR IF CR 
6578 Oe6174 023727 O26262 026266 CMP STKQIN, #STKGEND “AT THE ? 
6579 Oebe0e 001003 BNE 2s *BR IF NOT AT END 
6580 Oebe04 104401 001160 TYPE SBELL "RING THE TTY BELL 
6581 026210 *EXIT 
6582 Oebel (SP) 2), aSTKQIN PUT IN QUEUE 
6583 | 1 °C THE CHARACTER 
£S84 STKOIN *UPDATE THE POINTER 
6585 Oebect 4S SEXIT 
6585 Oebeat SS THE ENTRY 
B87 Debe4 STKCNT *CLEAR THE CHARACTER COUNTER 
#STKOSRT, STKQIN RESET THE POINTER 
6589 Oebe46 STKQSRT ‘CLEAR THE. BUFFER 
6590 OebeS2 (SP)+ RESET THE STACK POINTER 
| Be ee S 
| 65 0 *STORAGE FOR ASCII CHARACTER TO TYPE 
6593 026257 0 : TERMINATOR 
bead Debebd 0 "NUMBER OF ITEMS IN THE QUEUE 
0 s INPUT POINTER 
6596 O2beb4 z sTTY KEYBOARD 
| §597 : 
| 598 -EVEN 
6£00 . eRe RRITTTE Ul INPUT 2 SINGLE CHARACTER PRON TIE TTY 
6601 THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 
| 6602 **CALL: 
} 
H 
{ - 
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Pil 
; :* RUCHR s INPUT A SINGLE CHARACTER FROM THE TTY 
% RETURN HERE ‘CHARACTER IS ON THE STACK 
01164 SRDCHR: MOV (SP), -(SP) + PUSH Ou THE PC 
6608 026270 O18666 o00004 900002 MOV 4(SP} 2(SP) : SAV & THE PS 
6609 bebe? 105777 152642 18: TSTB = ASTKS FO 
pei? reais 1526 004 SOV ARK 4(SP) if Rae ety 
pets pees AizeBe 136636 jaa BIC #104177), 4(SP) :RERO, THe RID oF NUNK IF ANY 
613 026320 o000d2 RTI GO BACK TO USER 
6615 SEESEEFSLERELELE SRE FLEES LEE FSSLEFSFESE HSL ESLL SELL FLA FREE SSA FSFELELE 
bb16 jATHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 
6618 :% RDLIN s INPUT A STRING FROM THE TTY 
6519 t* RETURN HERE *ADDRESS OF FIRST CHARACTER ‘WILe BE ON THE STACK 
6620 t# ‘TERMINATOR WILL BE A BYTE OF ALL O'S 
epss 026322 010346 SRDLIN: MOV R3,-(SP) sSAVE R3 
6623 026324 OOSO4 CLR -( 6p) *CLEAR THE RUBOUT KEY 
6624 026326 012703 026570 1$ MOV #STTYIN, R3 *GET 
6625 O2633e 022703 Ge 23 CMP SSTTYINFIO. ,R3 BUFFER FULL? 
6626 026336 101450 BLOS 4S BR IF YES 
6627 O26340 104406 ROCHR GO READ CHARACTER FROM THE TTY 
6628 Oebs42 112613 MOVB  (SP)+, (R3) *GET CHARAC ER 
6629 026344 122713 000177 CMPBs«a8177, (R3) -1S IT A RUBOUT 
6630 026350 001022 S$ *BR IF_NO 
6631 926352 005716 TS (SP) 31S THIS THE FIRST RUBOUT? 
6632 026354 001007 BNE 6S *BR IF NO 
6633 026356 112737 134 026554 MOVB #°\,9S :TYPE A BACK SLASH 
6634 026364 1049401 026554 TYPE 
6635 026370 012716 177777 MOV b-1, (SP) SET THE RUBOUT KEY 
6626 026374 905303 6S: DEC R3 *BACKUP BY ONE 
6537 026376 026570 CMP R3, sSTTYIN :STACK EMPTY? 
6638 O26402 103426 BLO 4§ BR IF v5 
£639 111 026554 MOVE  (R3),9S *SETUP TO TYPEOUT THE DELETED CHAR. 
£640 10 104401 026554 TYPE 95 60 T 
Peds OSeNie OoSrie css: fer Sepp RUBOUT KEY sets 
5 hatte rites Q 75 *BR IF NO 
6644 O26422 112737 000134 026554 MOVB = &’\, 95 * TYPE A BACK SLASH 
6645 026430 104401 O265S4 TYPE 9s" 
6645 Oeb4 65016 CLR tsp) CLEAR THE RUBOUT KEY 
6647 026436 122713 000003 73: CMPB sé, (Ra) 15 CHARAC RACTRLC ? 
026442 001425 BEQ gs’ IF IT IS 
O2b444 122713 o00025 CMPB 3s #25, (R3) IS CHARACTER A CTRL U? 
6650 O264SO0 001006 3$ *BR IF NO 
6651 026556 TYPE SNTLU *TYPE A CONTROL “U” 
5G0 TART OVER 
prey D26464 is ad ” Bre _— CLEAR THE BUFF R AND LOOP 
itis 1359 026554 3S: MOVE  (R3),9S iGLER THE CHARAETER 
6& 104401 O26554 TYPE 
6657 026476 122723 00001 CMPB 4=—s«IS, (R3)+ ;CHECK FOR RETURN 
026502 001313 2$ "LOOP IF NOT RETURN 
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bee Becsia iowol doiie6 

6661 026514 Peat 

Gees Getees lizrs? BBSECS ozes7o 

bees Gseese 13608 

pbee 026534 yeaa 

6667 026536 016666 000002 
Ole 000004 










6669 Oe65S2 O00002 
6570 O26554 000 
6671 O26555 000 
bb7e 026556 OS2536 905015 00 
33 136 006503 ocoDdvle2 
6574 G26570 o000le2 
£575 
6576 
£577 
6578 
£679 
6680 
6681 
- 6682 
6583 
5684 
£685 
6686 
6687 
6688 
6689 
£690 
6691 
6692 
6693 
6694 026602 
6689S O26602 004737 o25256 
B63 Debb08 105237 001103 
88 026614 foie a3 001102 152320 
6699 OQebb22 032777 002000 152310 
eon) Geeese TOHMOT 001160 
6702 Oebb26 ipe3o} visbtes 
6703 Oebb42e 011637 O01116 
6704 Ocb646 162737 O00002 001116 
6708 026654 117737 152236 O01114 
6707 Waesai ates es 
| §708 O26672 004737 026714 
| §709 026676 104401 OO1IES 
bit Heer 
6711 005777 152232 
| 6712 026706 100001 
| 6713 026710 000000 
| 6714 O2671e 
} 


r 
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CLRB = = 1 (R33) *CLEAR RETURN (THE 15) 
TYPE SLF ‘TYPE A LINE FEED 

83: TYP SCNTLC ;TYPE A CONTROL ¢ 

wos; FP HRN EEE gut ney Pot ie sTac™ ° 
MOV (5P)+,R3 iG AN BUR SU 
MOV P) ~(SP) * ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP}2°SP) : FIRST ASCII CHARACTER ON IT 

aSTTYIN, 4(SP 

RTI ; RETURN 

93: .BYTE O *STORAGE FOR ASCII CHAR. TO TYPE 
“BYTE : TERMINATOR 

SCNTLU: .ASCIZ /1U/<15><«12> ; CONTROL a 

SCNTLC: .:ASCI2 7#C7<15><1e :CONTROL C 

STTYIN: -BLKB 10. ?RESERVE 10. BYTES FOR TTY INPUT 


5p RARER EER AREER EE EEE EERE EERE EEE EEE EEE E LEER ERE EERE EE 
-SBTTL MACRO ROUTINES 
-SBTTL ERROR HANDLER ROUTINE 


5 SSE SESE SESE HSE AEE HEE SEE EEE ESE AEE EE AEE EEE EERE EEE EEE REELS 
ATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
; #SAVE ie en eee THE ADDRESS OF THE ERROR CALL 
;#AND GO TO SERRTYP ON ERROR 
5 #THE etrTcH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
; #SW1S=] HALT R 





eui3=1 INHIBIT ERROR TYPEOUTS 

j #541 0=1 BELL ON ERROR 

ty ERROR N : sERRORSEMT AND NeERROR ITEM NUMBER 

SERROR: 
ISR PC, ERENTR 

73: INCB © SERFLG sSET THE ERROR FLAG 
BEd 7§ : DONT LET THE FLAG GO TO ZERO 
M STSTNM, DISPLAY };DISPLAY TEST NUNBER AND ERROR FLAG 
BIT #B1T10, aSWR *BELL ON ERROR? 
OOO HNO BELL 

1S: INC SERTTL >:COUNT THE NUMBER OF ERRORS 
Hoy (SP) ,SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
MOVB a@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT T13, aSWR :SKIP TYPEOUT IF SET 
BNE ::SKIP T T 

R :G0 TO USER ERROR ROUTINE 
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6715 O26712 900002 RIT +s RETURN 
bei .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
6718 ; $ 5 RERKERAAARE EAA EAE E AERA AAA AL AAEEREAA ELLA EER EEE RE RAL ERE REL ER RELE 
6719 . *4THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO E TERIINE WHICH 
6720 ERROR IS TO BE REPORTED. IT THEN OSTAINS, FROM THE “ERROR TABLE” (SERRTB), 
bel #AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
6723 026714 SERRTYP: 
6724 026714 104401 OO11ES TYPE SCRLF s;"CARRIAGE RETURN” & “LINE FEED” 
6725 O26 010046 MOV RO, -(SP) : 0 
£7 Deb? 905000 CLR R >:PICKUP THE ITEM INDEX 
67 153700 001114 81S8  asSITEMB,RO 
6728 626730 OO1COY¥ BNE 1$ :;IF_ITEM NUMBER IS ZERO, JUST 
6729 >: TYPE THE PC OF THE ERROR 
6730 026732 013746 001116 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
6731 *:ERROR ADDRESS 
6732 026736 104402 TYPOC :GO TYPE--OCTAL ASCIICALL DIGITS) 
6733 O26740 OOO44S R 10 *:GET OUT 
6734 O26742 005300 18: DEC RO ::ADJUST THE INDEX SO THAT IT WILL 
6735 Oc6744 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
6736 O26746 006300 ASL RO 
6737 026750 006300 ASL RO: 
6738 752 Oberog 001346 ADD #SERRTB, RO ;;FORM TABLE POINTER 
6739 756 O01 026766 MOV (RO)+, 2$ ::PICKUP "ERROR MESSAGE” POINTER 
6740 O26762 O01404 BEQ ::SKIP TYPEOUT IF NO POINTER 
6741 026764 104401 TYPE :: TYPE THE ” . 
Pos BSETSB TONUOT ODLIES = Hoe? Oe Re TE BOON R “LING FEED 
tae 774 Oiz037 027004 3$ HOV R0)+, 48 s PICKUP ponte HEADER POINTER 
6746 ee 104401 TYPE >: TYPE THE ora ADER™ 
6747 027004 O00000 4g: .WORD O "DATA HEADER” POINTER GOES HERE 
6748 O27006 104401 001165 TYPE SCRLF "CARRIAGE RETURN” & “LINE FEED” 
6749 O270l2 010146 cs: MOV Rl. -(SP) SAVE RI 
6 627014 012001 MOV (RO)+,R1 ::PICKUP “DATA TABLE” POINTER 
6751 027016 O0141 BEQ ?:BR IF NO DATA TO BE TYPED 
e 027020 Ol MOV (RO)+,RO PICKUP “DATA FORMAT” POINTER 
: 3 027022 105720 6S: TSTB £RO)+ js POCTAL® OR “DECIMAL” 
6 ae vested MOV a(R1)+,-(SP) Bee avert OR TYPEOUT 
b75b 027030 104402 TrPoc nm *:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
| Bee Seuss Ooowne 4 
| 6759 0131 MOV Q(R1)+,-(SP)  ;;SAVE (R1)+ FOR TYPEOUT 
6760 aaHos TYPDS >:G0 TYPE--DECIMAL ASCII WITH SIGN 
6761 005711 8S: TST (R1) 21S THERE ANOTHER NUMBER? 
Bees Geo TONNOT 027064 eet tt TYPE TWO(2) SPACES 
764 027050 Aor 4 BR &g a: 
6766 O270S2 012601 9$: MOV (SP)+,R1 RESTORE RI 
6767 027054 012600 i0$: MOV (5P)+'RO ss RESTORE RO 
b768 027056 04401 O01165 TYPE SCRLF "CARRIAGE RETURN” & “LINE FEED” 
£76 RTS pC ss 
£770 027064 20040 000 11$:  .ASCIZ 7 / ::TWO(2) SPACES 
| 
i 















NB.P11 









6771 
6772 
6773 
6774 
$775 
6775 
eres 
pong 
6780 
6781 
£782 
6783 
6784 
6785 
6786 
6787 
6788 
67893 
6790 
6791 
6792 
6793 
6734 
6795 
57% 
6737 027070 
6798 027074 
6799 927102 
6800 027106 
6801 O271le 
6802 027114 
6803 O027l22 
6804 027130 
680S 027136 
6806 027140 
6807 027142 
pene 027144 
027150 

6810 027152 
paid Pate 
Eeis beri 
6814 027172 
6815 027174 
6816 027176 
pele 

18 
6819 
Bess 5751 
oe 
ese 57554 
£826 027ecb 
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027070 
oe pono 
118e37 027315 
062716 000002 
000406 
112737 000001 
112737 000006 
112737 000005 
010346 
O10446 
010546 
113704 027315 
00S404 
062704 
Hee Bae 
bieeos po0012 
005003 
006105 

1 

ig 

105 
010503 
ce 
100016 
pats 177770 
005704 


t 
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ERROR MESSAGE TYPEOUT ROUTINE 


EVEN 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


5 RRR EEE REE EEE ERR EERE EEE EERE EERE E LEER EEE EEE E EE EEE EEE 
: RTHIS ROUT INS IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


pata HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;;NUMBER TO BE TYPED 
;;CALL_FOR TYPEOUT 
: N=] ie 8 FOR NUMBER OF DIGITS TO TYPE 


: ;;1=TYPE LEADING ZEROS 


#OCTAL (ASCII) NUMBER AND TYPE IT 
: ” MOV NUM, -(SP) 

3% TYPOS 

:# -BYTE ON 

3% “BYTE MM 

;* 

ie 


*$TYPOS OR STYPOC 
* #CAL o 


Oe he 
;;O=SUPPRESS LEADING ZEROS 


 ¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
if TYPON ?:CALL FOR TYPEOUT 
; #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
: MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPOC ;;CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 
MOVB = 1(SP)’SOF *:LOAD ZERO FILL SWITCH 
MOVE  (SP)+/SOMODE+1 $:NUMBER OF DIGITS TO TYPE 
ADD 2, (SP) *:ADJUST RETURN ADDRESS 
STYPOC: MOVB #1,SOFILL :;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE+1 *:SET FOR SIX(6) DIGITS 
STYPON: MOVB 85, SOCNT :SET THE ITERATION COUNT 
MOV R3,-(SP) 3; SAVE 
MOV RY -(SP) SAVE RY 
MOV RS, -(SP) ;;SAVE_RS 
HOVE SOMODE+1, RH *:GET THE NUMBER OF DIGITS TO TYPE 
ADD #6,R4 SUBTRACT IT FOR MAX. ALLOWED 
MOVB 4 ;;SAVE IT FOR USE 
MOVB SOF ILL, Ra ::GET THE ZERO FILL SWITCH 
MOV 12(5P),RS *:PICKUP THE INPUT NUMBER 
CLR R3 *:CLEAR THE OUTPUT WORD 
1$: ROL RS ROTATE MSB INTO “C” 
BR 3$ :G0 DO MSB 
2S: ROL R ::FORM THIS DIGIT 
ROL R 
ROL RS 
3$ ROL ie T LSB OF THIS DIGIT 
eke SSHODE + pe firs piety? 
Bret te2770. RS eR BID OF JUNK ” 
Be r7770, + Er TDD. 
TST RY ::SUPPRESS THIS 0? 
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oe 
703 


—O000000 
Oo 
ee 


: 


Sirs. 


a 
Be 
RR 





NARY TO SCTAL 


4$: 
S$: 


7$: 


6$: 


SOCNT: 
SPILL. 38 


e7~ 
R 


5 ne 15:05 PAGE 154 
ND TYPE 


Oooo0o0o -—MwM--—-—rwwow 
Load 





R IF YES 
BON T_SUPPRESS re 0’S 


ssMAKE THIS DIGIT 


i eKe ppett Naa NOT ALREADY 


$38 TYPE THIS Dictt 
;3BR IF MORE TO DO 


;BR 
Hoot LAST DIGIT ISN’T A wage 
DIGIT 


HE LAST 
RS 


t IRE R3 
tISET THE STACK FOR RETURNING 


; RETURN 
{STORAGE FOR ASCII DIGIT 
; TERMINATOR FOR TYPE ROUTINE 
?tOcTAL DIGIT COUNTER 
35 ZERO FILL SWITCH 
OF DIGITS TO TYPE 


OMODE: .WO : NUMBER 
"SBTTL’ CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 








¢ REKAAARAAALL LAL AA RELA RE REE LE REL ALLLLALALALAL ALLEL ALLELES ELE EEEEE 


;;PUT_THE BINARY NUMBER ON THE STACK 
3;G0 TO THE ROUTINE 


;;PUSH RO ON STACK 
3 PUSH Rl ON STACK 
ON STACK 


ASCII 

ONSTANTS TNOEX 

a OUTPUT POINTER 

iE HE FIRST CHARACTER TO A BLANK 
THE BCD NUMBER 


HE BCD DIGIT BY | 


T 
THE CONSTAN 
BCD Bicttso. 
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Pai 1bsr Fete {app HESITEL 'BOINe LEADING 0°: 
5 le 1 4 7$ :3BR IF 


2 
C 









74 BMI 

686 gery 106316 S$: SLE (SP) Ms ? 

PERG ha 102008 00000: 177777 MOVB Sop) -1(R3) $iBR IFN se HE SIGN 

6889 027426 952702 O00060 6S: 81S #’0,Re ; MAKE THE BC DIGIT ASCII 

6890 027432 OSe702 O00040 7$: BIS #’ |Ro IT A SPACE IF NOT ALREADY A DIGIT 
6891 027436 110223 Ove Re, (R3)+ i PUT THIS. CHORECTER IN THE OUTPUT BUFFER 
FESS pee tS peBasy 000010 CMP RO, #10 ?:CHECK THE TABLE INDEX 

£894 2$ -:GO DO THE NEXT DIGIT 













027454 6S 
027456 

6899 027460 1000 BPL S$ 

6900 Oe7462 116663 177777 177776 MOVB  -I1(SP),-2(R3) HYES--SET THE SIGN FOR TYPING 

6901 027470 105013 9S: CLRB ss (R3) :SET THE TERMINATOR 

6902 Oe747e 012605 MOV (SP)+,R5 ?:POP STACK INTO RS 

6903 027474 012603 MOV (SP)+°R3 *:POP STACK INTO R3 

6904 027476 Ole602 MOV (SP)+)Re POP STACK 

6905 027500 012601 MOV (SP)+;R1 ::POP STACK INTO RI 

6905 O27502 612600 MOV (SP)+'RO ;;POP STACK INTO RO 

6907 027504 104401 027532 TYPE SDBLK iW TYPE THE NUMBER 

6908 927510 O16666 O00002 on0004 MOV ac SP), 4(SP) ADJUST THE STACK 

6 027516 01261 MOV (SP)+; (SP) 

6910 O27520 00 RTI : RETURN TO USER 

6911 927522 023420 SOTBL: 10000. 

6912 001750 1990. 

6913 027526 000144 

fale Gere32 000007 soak: JBtKW 4 

B31 SBTTL BLK AND RESTORE RO-RS ROUTINES 

p3i8 . 2 erent nerwnerereme senna 

£920 ;xCALL: 

6921 +" SAVREG 

b3ee $EUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

63924 *£TOP=--(4+16) 

63925 + +2---(+1]8) 

6526 + +4---R5 

6927 3% +6---R4 

£928 3% +B---R3 

£929 :¥+10---R2 

£930 :#+12---RI 

6931 :#+14---R0 

6932 - 

6933 027542 SSAVREG: 

B34 027542 010046 MOV 

69 bere Bt OSE 

6937 027550 010346 

£938 O27552 O10446 





cr 
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DERPNB.P SAVE AND RESTORE O-RS ROUTINES 
6939 O27554 010546 MOV RS,-(SP) ;;PUSH RS ON STACK 
6940 027556 O16646 000022 MOV 22{SP),-(SP) *:SAVE PS OF MAIN FLOW 
6941 0275 16646 06 022 MOV 58} +<(30) «SAV PC OF MAIN FLOW 
6942 0275 16646 00022 MOV (5P)'=(Sp) 2 SAV 
6943 bere ce 0166468 occ022 MOV 22(5P);-(SP) :;SAVE PC OF CALL 
baa 7576 co00002 RTI 
6946 : *RESTORE RO-RS 
6947 ; CALL: 
£948 * % RESREG 
6949 027600 SRESREG: 
£950 027600 012666 o00022 MOV (SP)+,22(SP) ssRESTORE PC OF CALL 
6951 027604 O12665 00022 MOV (SP)+, 22(5P) RESTORE PS OF CAL 
cei ierels Glee Ome mY (eelaresise)HlpetaRe pe S MIN FS 
6954 We bibs MOV (2p 33° RE ::POP STACK INTO a 
6955 O27be2e MOV (5P)+,R4 ::POP STACK RY 
695 7624 Tea MOV (SP)+,R3 ::POP STACK INTO R3 - 
BS5? Q57b26 012602 MOV (5P}+;R2 ::POP STACK INTO Re 
6958 30 012601 MOV (SP)+,R1 »:POP STACK INTO R1 
6959 027632 012600 MOV (SP)+;RO -:POP STACK INTO RO 
£960 4 o0000e RTI 
B36] .SBTTL RANDOM NUMBER GENERATOR ROUTINE 
6363 ; jyareeasoureserscesovansereowensentzecereteteraneu cireeesncect 
6964 SATHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
b3b5 sat A RANGE OF O TO 2(+33)-1. 
: 
6967 +" ISR PC, SRAND s;CALL THE ROUTINE 
£968 * RETURN ss RETURN HERE THE RANDOM 
£969 +* >:NUMBER WILL i IN 
£970 :* ;;SHINUM, SLONU 
£971 
£972 0276 SRAND 
6973 027636 O10046 MOV RO,-(SP) ;:PUSH RO ON STACK 
6974 027640 010146 MOV R1,-(SP) >:PUSH R1 ON STACK 
£975 Oe764e 010246 MOV Re. -(SP) *:PUSH Re ON STACK 
6976 027644 013700 027736 MOV $LONUM, RO SET RO WITH LOW 
6977 027650 013701 027734 MOV SHINUM, RL *:SET RI WITH HIGH 
6978 027654 Ol2702 177771 MOV #-7,Re- >:SET SHIFT COUNT 
6979 027660 096300 1$: ASL fd ::SHIFT RO LEFT 
6980 27662 006101 ROL : ROTATE CARRY INTO R1 AND 
6981 027664 Oo0S202 INC RS *: CHECK FOR 
6982 027666 001374 BNE 1 *;CONTINUE SHIFT LOOP 
6983 027670 063700 027736 ADD SLONUM, RO - ADD NUMBER TO MAKE X 129 
6984 027674 OOSSO1 ADC RI js PROPOGR TE CARRY 
698S 027676 063701 027734 ADD SHINUM, R1 *:ADD NUMBER TO MAKE X 129 
6986 027702 062700 001057 ADD #1057, RO 3;ADD LOW CONSTANT 
6987 027706 OOSSO1 ADC al i }PROPOGAT E CARRY 
6988 027710 062701 O47401 ADD si7401 R1 ADD HIGH CONSTANT 
6989 027714 010037 027736 MOV , SLONUM + SAVE RO 
6990 027720 010137 027734 MOV Ri? SHINUM “SAVE RI 
6991 027724 Ol2602 MOV (SP)+, Re tT POP STACK INTO Re 
6992 027726 012601 MOV (SP)+,R1 :POP STACK INTO RI 
6933 027730 012600 MOV (SP)+;RO PoP STACK INTO RO 
6994 027732 000207 RTS PC * RETURN 
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DERPNB. P11 
6995 027734 
6995 027736 
§997 
5398 
g39 

6 
7001 
7002 
7003 
oOee 
7 027740 
7006 027742 
7007 027744 
7008 627750 
7099 027754 
7010 
7011 027756 
7012 027760 
7013 027764 
7014 777e 
7015 027776 
7016 030000 
7017 030002 
| 7018 004 
| 7019 939010 
7020 030012 
| 7021 030016 
| 7022 
| 7023 
| 7024 036030 
| 7025 030032 
| 7026 030034 
| 7027 
| 7028 
| 7029 
| 7030 
| 7031 
7032 
| 7033 
7034 
| 7035 
| 7036 
7037 
| 7038 
; 7039 
0300 
7041 0300 
7042 030044 
| 7043 030050 
| 7044 030054 
roe 030056 
| 3Bus BSppee 
| 7048 030072 
| 7049 030076 
S. 030100 


176543 
123456 


010046 


MACY11 é7(722) 
RANDOM NUMSER GENERATOR ROUTINE 


o000C4 
000006 


000006 
930004 
020000 


000002 


000006 
000004 
030034 


oooco4 


030134 
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SHINUM: .WORD 176543 
SLONUM: .WORD 123456 
.SBTTL ROUTINE 16 SIZE MEMORY 
OA naggmpare cpapemsaieegcapernesens nig io eaanemnaners sinmnticesereraet es 
ees. PC, $SIZE 
rr RETURN 
#$LSTAD WILL CONTAIN THE LAST AVAILABLE le2MORY LOCATION 
SSIZE: Moy RO, ~(SP) s3SAVE RO ON THE STACK 
MOV -SAVE R1 ON THE STACK 
MOV SHERRVEC,-(SP)_ {SAVE PRESENT ERROR VECTOR PS & FC 
MOV QUERRVECHE, 
-SAVE THE STACK POINTER 


MOV PRO 
+ SET THE ERRVEC Fa TO THE ai PS 
;;PUSH OLD Psu aND PC ON STACK 


nev (SP)+ DHERRVEC+2 SAV THE PSW IN SERRVEC#2 
MOV JBERRVEC i386 FoR’ TIMEOUT 
MOV tit 0,R1 ; ;FIRST ADDRESS 
1S: TST (RL) TEST THIS ADDRESS 
TST (R1)+ i STEP 19 NEXT ADDRESS 
BR 1$ 3; TRY ANOTHER 
23: SUB #2,R1 *DROP BACK 
MOV RO. SP RESTORE THE STACK 
MOV (SP)+, JHERRVEC+2': RESTORE ERROR VECTOR 
MOV (SP)+’ OHERRVEC 
MOV R1,$LSTAD 5 sLAST ADDRESS 
MOV (SP)+,R1 >:RESTORE RI 
Moy (SP)+,RO : RESTORE RO 
SLSTAD: .WORD 0 ONTAINS THE LAST ADDRESS 


.SBTTL OOUBLE LENGTH BINARY TO biconAL ASCII CONVERT ROUTINE 


HEHEHE HEHEHE HEHEHE EEE GHEE EEE GHEE 
tT THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
sxDECINAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


* MOV #PNTR, -(SP) ;POINTER TO LOW WORD OF BINARY NUMBER 
1 JSR PC, a#$DB2D 
t RETURN ;;THE FIRST ADDRESS OF ASCIZ 

21S ON THE STACK 


$DB2D: SAVREG ;;SAVE REGISTERS 
MOV 2(SP), Re ;;PICKUP THE DATA POINTER 
MOV #SDECVL, RO ::GET ADDRESS OF ™SDECVES STRING 
MOV RO, 2(SP) ::PUT ADDRESS OF ASCIZ STRING ON STACK 
MOV (R2)+,Ri PICKUP THE BINARY NUMBER 
MOV (Re)+, Re 
MOV ::;SET UP TO DO 10 CONVERSIONS 


MOV HeTAbUR RY ;;ADDRESS OF TEN POWER 
MOV #STNPWR+2, RS 


$: CLR R3 ;;CLEAR PARTIAL 
$: SUB (R4),R1 ;; SUBTRACT TEN POWER 
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DERPNS.P1l DOUBLE LENS? MH BINARY 10 DECIMAL ASCII] CONVERT ROCTINE 

7051 o30102 odséo2 Suc R2 

7052 O3C104 161502 Sus (RS) Re 

7053 030196 o024 BL 3$ :38R IF TEN, POWER TO LARGE 
7054 320119 3 INC R3 ;3000.1 TO PARTIAL 

7055 1] 75 &R 23 2h 

7055 O30114 O6240: 38: ADD | ig : RESTORE SUBTRACTED VALUE 
7057 930118 2OSS0e ape Re 

7058 630120 O624 ADD (RY) 4, : 
7088 OQ30le2 Oeeses CMP (RS) +, io 3 MOVE TO NEXT TEN POUE S 
7080 O301e4 OS2703 ooccEo 1S 80 : CHANGE PARTIAL TO ASCII 
7061 030130 110320 MOVB R32. {RO)+ ::SAVE IT 

7062 030132 005327 DEC (PO )+ : + DONE? 

7083 030134 090000 4g: -WORD =O 

70684 030136 0012 BNE 1$ SR IF No 

7085 30140 e535 CLAB Os (RQ)4 : TTERMINA TOR 

7065 O30142 10441 RESREG : SRESTORE REGISTERS 

soe? oles O00207 RTS. PC TURN 

7068 O30i4%6 145000 STNPWR: 145000 :31.0E09° 

7069 030150 935632 35632 

7070 030152 160400 160400 31. 0€08 

7071 O30154 002765 S7ES 

7978 030156 113200 113200 :;1.0£07 

? 030160 000230 230 

7074 030162 041100 041100 331. 0E06 

7075 630164 000017 17 

7076 O30166 103240 103240 :31.0E0S 

7077 930170 90001 } 

7078 030172 Gexe0 23420 +31. 0E04 

7073 930174 900000 6 

7386 17% O01 1750 :31.0€03 

7082 020202 000144 144 +31. 002 

7083 0320204 900000 yee 

7084 O30e06 000012 le :31.0€01 

7085 030210 000000 0 

7086 O30el2 O00001 1 :31.0€00 

7087 030214 900000 0 

7088 O320216 900014 SDECVL: .BLKB 12. SERVE STORAGE FOR ASCIZ STRING 
7088 -SBTTL SINGLE LENGTH BINARY TO Agee sar ASCIZ ROUTINE 

7031 H poate ROUTINE HITE CONVERT fA IG IT UNSIGNED BINARY MIMGER TO Gn 
7092 sATHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER T 
7093 #UNSIGNED DECIMAL ASCIZ NUMBER. 

age te MOV NUMBER, - ;;PUT BINARY NUMBER ON THE STACK 
70% : JSR Pe oesseen CALL 

7097 + RETURN *:ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
oogs 

7100 030232 O16637 oco0002 030262 S$SB2D: MoV 2(SP),1$ ;SAVE BINARY NUMBER 

7101 30240 012746 030262 MOV #1$,-(SP) i tceT POINTER 

7} bade 004737 030036 JSR PC, ausBeD ;;CALL DOUBLE LENGTH CONVERT 
7} 16 ADD (SP) “ONLY ALLOW FIVE CHARACTERS 
7104 030254 Ole666 000002 MOV tp) 3 acSP) {PICKUP POINTER 

7105 930260 000207 RTS PC : RETURN 

7106 O30e62 600000 coocc 1S: .WORD 0,0 
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-DERPN-S MACY) 


pooog2 
2705 930455 

000014 
177770 


“INA 
ityhyruny 
io” 

o= 

By 


: 


SINISE 


030332 O01 oocccte 


7162 030436 000000 000000 


1 
DOUBLE LENGTH 8 


g7( ian 
INARY 


030436 


) 
TO 


27 -SEP- 


-SBTTL OUUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
; RRERERERESEEEREEERESEEERELA LES REEF EREELEES RESP REEEEES SESS EEF ESD 
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OCTAL ASCII CONVERT ROUTINE 


tS THIS ROUTIN 
: SUNS IGNED OCTAL ASCIZ NUMBER. 


He 
ee 


; 
; 
, 
, 


$0820: 


1$: 


SOCTVL 


18: 


MOV 
SR 
RETURN 


SAVREG 


WILL CONVERT @ 32-BIT UNSIGNED BINARY NUMBER TO AN 


#PNTR mt 
PC, assDB2 


2(SP),R1 
aSOCTUL+13. ,RS 


(R1)+,R1 
Re, -(RS) 
RO, Re 


3$ 
es 


RS 
RS,2(SP) 


NUMBER, -(SP) 
PC, a8$SB20 


2(SP),1$ 
418 -{SP) 
C, ass $0820 
(SP) 
i, 2(SP) 
PC 


0,0 


3 ;POINTER 1 % Le WORD OF BINARY NUMBER 


73;CALL TH 


U 
3; THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 





33 SAVE pu REGISTERS 


;;PICKUP THE st) Oi TQ LOW WORD 
£100 ELEV TO DATA TABLE 


LEVEN CHARACTERS 


: TERMINA 


TOR 
se eeT CHARACTER _IN DATA TABLE 


5 3GET THIS DIGIT 


;;PUT BINARY NUMBER ON THE STACK 
*:ADDRESS OF 1ST ASCIZ CHAR. IS ON THE STACK 


-BLKB 14. *RESERVE DA 
SOSTYL’ SINGLE LENGTH BINARY 10 BATAL ASCIZ ROUTINE 


+ LRERER EEE EE GREER EEE EERE EE EERE EEE ER EERE EL ELAREE EEE EEEELE 
iktHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
;*#UNSIGNED OCTAL ASCIZ NUMBER. 


;;SAVE THE —e NUMSER 
eT POINT 


3; CALL DOUBLE LENGTH CONVERT ROUTINE 
;; ONLY YS BOTN ts CHARACTERS 


33PI 


KUP. P 


; ;RETURN 


HARACTER 
THE LA T 
S THE LAST DIGIT 


THE MASK FOR THE LAST DIGIT 
THE BINARY NUMBER FOR 
NEXT OCTAL DIGIT 
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zi63 .SBTTL TRAP DECODER 
o1E5 SPPSHSEFREEES PEELE SEE FS HESSL ESE LPS SE SEG SSELEP SEAL LEVEES ELEEE ET EEFESS 
7186 :bTHIS ROUTINE WILL PICKUP THE LOWER Bite OF THE sTRAR" INSTRUCTION 
7187 + #AND use IT TO INDEX THROUGH THE TRAP TASLE FOR THE STARTING ADDRESS 
7168. :8OF THE DESIRED ROUTINE. THEN itis ue ADDRESS OBTAINED IT WILL 
cigs :#G0 TC THAT ROUTINE. 
717] O30442 O10046 STRAP: MO RO, -(SP) + SAVE RO 
7i72 O30444 O16600 oop0002 MOV e(SP), RO 33GET TRAP ADDRESS 
7173 930450 005740 TST (RO) uP BY 2 
7174 030452 111000 MOVE CET RIGHT BYTE OF TRAP 
7175 O30454 noon CMP SSTERM RO 3;CHECK FOR OUT OF BOUNDS 
7176 O30460 03092 BGT +6 ::BR IF OK 
? 030462 000900 HALT ::QUT OF BOUNDS 
7178 030464 000776 , ge .-2 GUP 
7179 O30466 006300 ASL RO Hoste FOR INDEXING 
7180 030470 016000 030510 MOV STRPAD(RO),RO ;; INDEX TO TABLE 
cig 030474 000200 RTS RO ::G0 TO ROUTINE 
7183 
iss :;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
7186 O30476 O1IS4e STRAP2: MOV (SP), -(SP) ssMOVE THE PC DOWN 
| 7187 039500 O1666& op0004 xsD0002 MOV 4(SP},2(SP) ;;MOVE THE PSW DOWN 
| gigs 930556 000002 RTI *:RESTORE THE PSW 
3130 .SBTTL TRAP TABLE 
| 7193 s#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
133 :#BY THE “TRAP” INSTRUCTION 
71s : ROUTINE 
| 71987 030510 oO30476 $TRPAD: .WORD $TRAP2 
| 7198 030512 02S636 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
7199 9305149 027114 STYPOC ;3:CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
7200 030516 027070 STYPOS ;:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS 
' 7201 030520 027130 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
706 030522 027316 STYPDS ::CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
| 7304 
| 7205 030524 o26266 SROCHR ;;CALL=RDCHR TRAP +G( 104408) TTy TYPEIN CHARACTER ROUTINE 
| 7206 b205e8 322 LIN $;CALL=RDLIN TRAP+7( 104407) TYPEIN STRING ROUTINE 
| 7207 42 SAVREG ; sCALL=SAV G TRAP+10( 104410) SAVE RO-RS ROUTI 
| 7208 030532 027600 SRESREG ii SREG TRAP+11(104411) RESTORE RO-RS ROUTINE 
| 7209 030534 O25162 SOSPLY =DISPLY ThapsipetpMats) PRINTER-TELETYPE MESSAGE ROUTING ROUTINE 
716 000026 STERM=.-$TRPAD 
| gels : 5 SEARRRLAL ELLE RALELEELALAL SELLA RALE LALLA ALLELE LALLA LALA LEELA SALE 
| 7el4 .SBTTL mien DRIVER - SINGLE/DUAL PORT VERSION 
| els *(MODIFIED FROM REV. 0.3 FOR MD-11-DERPN-B) 
| 7217 s#COPYRIGHT (C) 1974 
| 7819 *#DIGITAL EQUIPMENT CORP. 
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7219 : #MAYNARD, MA 01754 
pee) :#AUTHOR: "JIM LACEY/CHUCK HESS 
cess 33 THALES KSLELSRFLSSESERSELELSE SELLE SL SSHAELSSLAAESSFSSLESLSASELESLSESSE 
o3s3 s#STORAGE FOR RHDS1, RHER1, RHER2, AND RHERS ON AN ERROR “2” OR “S” 
s#RPERRS | = RHDS1 
7226 !#RPERRS+2 = RHERI 
7227 #RPERRS+4 = RHERS 
758 *#RPERRS+6 = RHERS 
é 
7230 030536 900090 RPERRS: .WORD 0 
7231 630540 Oo0000 “WORD O 
7ese 930542 90000 “WORD 0 
233 030544 900000 “WORD 0 
7235 ;*TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
7226 s#DRVACT=O IMPLIES ORIVE IS IDLE 
7237 *#DRVACT>O IMPLIES DRIVE IS ACTIVE WITH A COMMAND 
sex8 ?#DRVACT<O IMPLIES DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
7240 O30546 000 DRVACT: .BYTE 0 sDRIVE 0 
7241 030547 900 “BYTE :DRIVE 1 
mien ae ate § 
7e44 030552 000 “BYTE 0 DRIVE 4 
papees se IE OD DRIVE > 
| 5548 930555 090 *BYT 5 ‘RIVE 5 
is ;#TABLE OF DRIVE STATUS INDICATORS (ORVSTA=8 BYTES) 
| 7250 s#DRVSTA=O IMPLIES DRIVE IS OFFLINE 
| 731 t#DRVSTADO IMPLIES DRIVE IS ONLINE 
| 7252 :#DRVSTACO IMPLIES DRIVE IS UNSAFE OR NONEXISTENT 
o5e3 030556 090 DRYSTA: .BYTE OO sDRIVE 0 
| 7255 030557 000 "BYTE QO :DRIVE 1 
7255 030560 000 BYTE 0 *DRIVE 2 
| 7257 030561 000 "BYTE O *DRIVE 3 
| 7258 930562 000 BYTE O :DRIVE 4 
| 7259 030563 009 BYTE 0 :DRIVE S 
7260 030564 000 BYTE 0 :DRIVE 6 
7ebl 030565 000 BYTE 0 DRIVE 7 
| 7263 s*#TABLE OF DRIVE TYPES (DRVTYP=8 WORDS) 
| 7264 s*#DRVTYP WILL CONTAIN THE DRIVE TYPE OF ALL ONLINE, OFFLINE, AND 
| 7265 *#UNSAFE DRIVES. IF A DRIVE IS NONEXISTENT DRVTYP WILL BE ZERO. 
SPs DRVTYP: .W sDRIVE 0 
| 7268 “HRD 5 DRIVE 1 
WORD 0 *DRIVE 2 
Wo : *DRIVE 3 
WORD O DRIVE S 
WORD 0 ‘DRIVE 6 
WORD 0 DRIVE 7 








r 





7275 
7276 ;*TABLE OF OuAL PORT INITIALIZATION INDICATORS 
7277 *DPINT=O IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
te: . : SDPIN 1<0 IF INITIALIZATION IS IN PROGRESS 
7280 030606 900 DPINT: .BYTE 0 :DRIVE 0 
7281 030807 909 BYTE : :DRIVE 1 
oes paper 900 "BYTE 0 DRIVE 
7e84 030612 960 "BYTE O DRIVE 4 
7285 030613 000 “BYTE QO ‘DRIVE 5 
7286 030614 600 “BYTE O DRIVE 6 
7287 030615 009 “BYTE 0 DRIVE 7 
eS ;*TABLE OF PENDING DUAL PORT REQUESTS 
7290 :*DPRQS=0 IMPLIES THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
7231 ?#DPRQS<G IMPLIES THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 
030616 000 DPROS: .BYTE O sDRIVE 0 
17 000 “BYTE 0 DRIVE 1 
000 “BYTE 0 DRIVE 2 
030621 000 “BYTE OQ ‘DRIVE 3 
030622 000 "BYTE QO :DRIVE 4 
030623 900 "BYTE QO DRIVE 5 
039624 000 “BYTE 0 DRIVE 6 
030625 000 “BYTE 0 :DRIVE 7 


aa nity FLAG (TRNSWT=1 WORD) 
THIS IS A ONE WORD Queue. IT WILL CONTAIN THE ADDRESS OF 
fy #"OPB” OF THE 1/0 OPERATION. 


009090 TRNSWT: .WORD 0 


5 ¥SEARCH at KEYS (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT 7%. CONTAIN A KEY FOR_EACH OF 


aR 
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7310 SSTHE DRIVES THAT ARE PERFORMING A SEARCH CONMAND EOR THE 1/0 
7311 f¥REGUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
7312 {HEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 
7314 030630 900000 SRCHMT: .WORD 0 
7316 ;#RPOY DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
731? ;#ACTORV=0 INPLIES DRIVER IS INACTIVE 
7318 S#ACTORVO IMPLIES DRIVER IS ACTIVE 
7320 030622 000 ACTORV: .BYTE 0 
7302 ;¥SOFTHARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
7323 STR=0 IMPLIES SOFTWARE TIMER ROUTINE IS INACTIVE 
| EAACTST@DO IMPLIES SOFTWARE TIMER ROUTINE IS ACTIVE 
| Fie 030633 000 ACTSTR: .BYTE 0 
| 758 ;#UNLOAD FLAG (ULOFLG=8 BYTES) 
| 7389 ULOFLG=0 IMPLIES NO UNLOAD COMMAND 
| 7330 HTULDFL@)O IMPLIES UNLOAD COMMAND IN PROGRESS 
| 








DEAPRECPLL  RHLL-RPOW ORIVER = SENGLE/DURL PORT VEReIoN © /° 


7331 ;#ULDFLG<O IMPLIES UNLOAD COMMAND IN WAIT QUEUE 
: .BYT : 
ee wars: AVE § Da 
7335 36 090 “BYTE 0 :DRIVE 2 
733 030537 000 -BYTE 0 :DRIVE 3 
7337 030640 000 "BYTE 0 :DRIVE 4 
ie ane aN & 
sai 45 050 “BYTE 0 :DRIVE 7 
7342 ;#LOOK AHEAD COUNT (LACNT=8 BYTES) 
7343 s#LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
oaye 030644 000 LACNT: .BYTE O ;DRIVE 0 
7345 030645 ooo “BYTE 0 :DRIVE 1 
7347 0306 900 “BYTE :DRIVE 2 
73248 03064 000 "BYTE 0 :DRIVE 3 
7349 G30b50 -BYTE 0 ; DRIVE 4 
5 2 030652 000 ETE 2 : RIVE 2 
7352 000 “BYTE © *DRIVE 7 
o3ee ; xSAVE REGISTERS FLAG (SAVEFG = 1 WORD) 
7255 G <0 IMPLIES Saye THE RH11/RPOY REGISTERS WHEN THE 
7356 { XOPERATION IS COMPLETED AS PER (DPB+14) 
7357 *#SAVEFG=O0 IMPLIES SAVE THE RHI1/RPO4Y REGISTERS, AS PER 
738 :#(DPB+14), AFTER AN ERROR. 
7360 o30654 900000 SAVEFG: .WORD 0 
7362 ; #SEEK FLAG (SEEKFG=1 WORD) 
7363 j EOEEKF C= IMPLIES WHEN THE DISK RODRESS ISN’T IN THE WINDOW 
7364 A DATA TRANSFER START A SEARCH COMMA 
7365 ? ESEEKFG(O IMPLIES DATA TRANSFER RTC DO IMPLIED SEEKS, 
736 *#DISREGARD THE WINDOW 
‘ 
7368 030856 900000 SEEKFG: .WORD 0 
7370 sSTEMEDUT TpBLE (TIMER=8 WORDS) 
7371 THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
5355 030660 177777 TIMER: sie -1 sDRIVE 0 
7374 030662 177777 -WORD -1 DRIVE 1 
7375 030664 177777 - WORD -] *DRIVE 2 
7376 030666 177777 af -] *DRIVE 3 
7377 030670 177777 .WORD -1 *DRIVE 4 
7378 030672 177777 .WORD -1 DRIVE 5 
7379 030674 177777 .WORD =] :DRIVE 6 
7380 030676 177777 .WORD =] *DRIVE 7 
7282 ;XDATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 
7383 #DTUW<O IMPLIES NO DATA TRANSFER UNDERWAY 
7384 *#DTUWS4N (WHERE N=O TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N | 
7386 030700 177777 OTUW: .WORD -1 2}; 
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73987 

7388 ; ATTENTION N B17 TABLE (aTA81T=8 BYTES) 

? ABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 

7390 SSATTENTION BIT 

7392 030702 001 ATABIT: .BYTE 1 sDRIVE O 

7393 030793 oo2 “BYTE 2 :DRIVE 1 

73% 030704 004 “BYTE 4 *DRIVE 2 

73295 030705 010 -BYTE 10 DRIVE 3 

73% 030706 020 “BYTE 20 ‘DRIVE 4 

7397 030707 040 BYTE 40 :DRIVE 5 

7398 030710 100 BYTE 10 DRIVE & 

5333 030711 200 BYTE 20 : DRIVE 

7401 ;#RPOY TO RHI1 “MASS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 

0g ?#CALLING IT FATAL (MCPEMX=1 WORD) 

zion 030712 900003 see .WORD 3 

s#STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4) 

7407 *#RPVEC (THE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5)}. 

7408 039714 176700 RPADR: .WORD 176700 

7409 030716 000254 op0240 RPVEC: .WORD bon, 5#32. 


eee reer LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
Te gee DELTA eed IS 8 SECTORS (MXDLTA=1 WORD) 


ZzzzE 
£WwrueO 
ni 





A: #6 

7415 SeNINIMUM DELTA DELAY IS @ SECTORS (MNDLTA=1 WORD) 

7416 030726 o00200 TA: ¥64. 

7417 MAXIMUM SEARCH FOR 1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
> Ree Seep: antl: WD 

Pied ;#DEFINITIONS OF THE RH11/RPOY ADDRESS INDEXES 

7422 oo0000 RHCS1=0 sCONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
7493 oo000e2 RHWC=2 "WORD COUNT REGISTER (NOT A DRIVE REG) 

‘| 7434 o00004 RHBA=4 * UNIBUS SS REGISTER (NOT A DRIVE REG) 

7425 000006 RHDA=6 ‘DESIRED SECTOR/TRACK $s REGISTER (DRIVE REG. 05) 
7426 000010 RHCS2=10 :CONTROL_AND STATUS REGISTER #2 (NOT A DRIVE REG) 

7427 900012 RHDSI=12 *DRIVE STATUS REGISTER (DRIVE REG 01) 

7428 000014 RHERI=14 ERROR REGISTER #1 (DRIVE REG. Oe) 

7429 000016 RHAS=16 ATTENTION SURNARY PSEUDO REGISTER (DRIVE REG. 04) 

74 oo00020 RHLA=20 LOOK AHEAD REGISTER (ORIVE REG. 07) 

| 7431 oo0g22 RHDB=22 *DATA BUFFER REGISTER (NOT A DRIVE REG.) 
a4a5 ae Rupr =3e SPRIVE TYEE REGISTER CDAIVE REG. OES o> 
7434 pop038 RO Tase OPAL NURBER Teaicre (DRIVE REG. 10) 

| 7435 p00032 RHOF =32 ;OFFSET REGISTER (DRIVE REG. 11) 

i 7436 000034 RHCA=34 ; DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
7437 000036 RHCC= “CURRENT CYLINDER ADDRESS REGISTER (DRIVE REG. 13) 
7438 000040 RHER2=40 “ERROR REGISTER #2 (ORIVE REG. 14) 

7439 ooco4e RHERS=42 ERROR REGIST ER #3 (DRIVE REG. 15) 

7440) p00044 RHEC1=44 “ECC POSITION REGISTER (DRIVE REG. 16) 
| m4 000046 RHEC2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 
t 
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GLE/DUAL PORT VERSION 


rome ORIVER_INIT. CODE 
THIS ROUTINE WILL DETERMINE WHICH RPOY DRIVES ARE 
Pitt VATLABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;*T0_ THE PROPER STATE FOR EACH ORIVE. 
NOTE: THIS ROUTINE CALLS DRVINT 














PC, RPINIT 


OR ’L’ CLOCK MUST BE STARTED 


RO, SAVRIS ;GO0 SAVE R1-RS 
- ; SAVE THE PRESENT PROEESaOn STATUS 
THE RITY TOS 













PRIO 
‘3 ‘CLEAR ALL REQ 

#RPERRS, R1 FIRST ADDRESS TO BE CLEARED 
#SEEKFG, T ADDRESS TO BE CLEARED 
R1,Re ARE WE DONE? 

1$ + BRANCH IF NO 

#DTUW, Re *LAST ADDRESS 

#-1, (R1)+ : INIT IALIZE 
R1, Re 7D 

es *L POOR IF NO 

1,DRVSTA SET ALL DRIVES TO UNAVAILABLE 


;SETUP THE RH11/RPO4 VECTOR 


SS OF RH11/RPO4 
Benne FA RHCS2(R4)° _jtRsseus fA fr 
R1 sStarT W ITH DRIVE 0 


RO, ORVINT : INIT THE DRIVE 
Ri GO TO NEXT DRIVE 
#1C7,R1 *MASK OUT UNUSED BITS 
‘BR IF MORE DRIVES TO GO 
#7,R1 ‘START WITH DRIVE 7 
aaPs CLEAR T PROCESSOR STATUS 
DPINT(R1) *WAITING FOR DRIVE TO SWITCH PORTS ? 
75 *BR NOT WAITING 
PC, SET.IE SET INTERRUPT . 
DPINT(R1) :DR IVE SWITCHED PORTS ? 
6S *BR I 
Ri $80 TO THE NEXT DRIVE 
(SP)+, HPS RESTORE THE PROCESSOR STATUS 
RO, GETRIS snee! ORE Ri 1-RS 
DRVSTA(RO) “SET DRIVE STATUS TO OFFLINE 
4§ *CONTINUE WITH THE INIT 








s#ORIVE INIT, ROUTINE 
THIS ROUTINE DETERMINES IF @ ORIVE EXIST AND IF 17 IS 

POY. IE 27.15, 8 “READ-IN PRESET” 15 ISSUED AND FNT2e 
;#1S SET TO A “1". THEN NMOL, DPR AND VV ARE CHECKED TO 
ESINSORE THEY ARE’ ALON AU*1™, AND. DEPENOING ON THEIR STATE, 
SEORVSTA IS SET TO THE PROPER CONDITION 


x MOV #ORVNUM, RL sDRIVE NUMBER TO RI 

* MOV RPADR, R4 *UNIBUS RODRESS OF RH11/RPO4 (RHCS1) 
% JSR RO, ORVINT CALLED 

x RETURN “ERROR OCCURRED (PARITY) 

% RETURN2 *NORMAL RETURN 


SutGUREES 
de 
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pie ; 
7512 031160 004037 037104 ORVINT: JSR 0, SAVRIS ;SAVE R1-RS 
7513 O31168 112761 177777 030556 MOVB om DRVSTA(R1) ;START RIVE STATUS AS AS NONEXISTENT 
sole patie ere ASL RL, RS sCOPY SITION IT FOR Taal NDEXING 
ix 
set? patie 030566 err | CLE sie ial "Tee? INDICA of 
pete patSte teat aooriy MOVE at Reag sSELECT SO ORIVES GLEoR COMMAND (& SEIZE DRIVE) 
7519 Batsi8 4 stare 000010 BIT fertile. RHCS2(R4)’ ;NONEXISTEN T DRIVE? 
Feet O3le82 Dota? 036276 isk PC, SET. IE iGO SET "IE" WITHOUT A “TRE” 
7522 031226 OCO4ES BR pats *LEAVE THIS ROUTINE 
7523 031230 032714 co4000 1S: BIT #BIT11, (RY) -SEE IF DRIVE AVAILABLE 
7524 931234 001466 BEQ 8$ "BR IF DRIVE NOT AVAILABLE 
7525 031236 004037 035700 JSR RO,RD.RP *READ THE DRIVE TYPE REG. 
7526 O3le42 OO0026 RHDT 
yes Datoue DrSeoS nov But “DRIVE TYPE IN. Be 
7529 pa tsd8 pisepS 030566 MOV Re g ORUTYPCRa) *SAVE THE DRIVE T 
7530 031254 022705 o20020 CMP #20020,R IS IT A SINGLE PORT RPOY? 
7531 O31c9 001403 BEG 2s i BRANCH IF YES 
031 024020 CMP #24020, R5 IS IT A DUAL PORT RPOY? 
rea pices ea 000121 23: a en (SP) spree Ir IN PRESET” 
7535 pate teed nee , JSR RO, WAT. RP 
7536 031300 o00000 RHCS1 
rea heen ec aey #BIT12,-(SP)  ;SET FMT22=1 
rese Bat 10 teed nese JSR RO, WAT RP ; r. 
7540 031314 000032 RHOF 
7541 031316 031404 75 
754 031320 035700 JSR RO,RD.RP READ RHDS1 
| 754 31 12 RHDS1 
7544 031326 031404 7§ 
| FS iia oleate Ry {SPD4,RS SAND. SAVE. TT_IN RS 
| 2547 31336 16164 030702 O00016 MOVB  ATABIT(RI), ruascA) iCLEAR LBTTENTION BIT 
| 7548 03134e 035700 JSR RO,RD.RP FIND OUT A=] 
! 7549 031346 990014 RHER1 
755 Lee 1 RO (SP)+ S IT UNSAFE? 
| Be ae 1oosT8 s @& 8 RCP YES aw wy 
| 7554 031360 042705 167077 . BIC NIC<BITI2!BITOStAITO7"B1 106) RS’ 
| 
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"RAL RPO SRIVER 


000001 o30556 


S$ 
#1,DRVSTACR1) 
DRVSTA(R1) 
(RO)+ 

PR SE TRIS 


BRANCH IF MOL, DPR, DRY, OR vv IS CLEAR 
SET ORIVE STATUS TO ONLINE 


;ORIVE STATUS = OFFLINE 
pss OVER THE ERROR RETURN 
STORE R1-RS 


#2000. rena) 


#0, RHDS1(R4) 
DRYSTACRI) 
#1, DPINT(RL) 


;*REQUEST PRE-PROCESSOR-HANDLES 


¥: 
aT) 


é 


ai 
£ 


BRtzane 


wut 
a ee od 
£o 


est 
wesae 


wt 
y= 
Tw 
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: 


z 
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b= bh 
oo 
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° 


ee ae ae ae ae es eo he Oe be be be eb 2 be 


Re 


eB 
BS 





RO, J8RPOY 


DePS,-(SP) 
RPVECs2 aaPS 
#1, ACTDRV 


(Re), Rl 
RPADR, RY 
DRVSTA(RL) 
ULDFLG(R1) 
DPINT(R1) 
RPADR, RY 
RO, DRVINT 
DPINT(R1) 
DRVSTA(R1) 
DPRQS(R1) 
R1,RHCS2(R4) 
RO, DRVQUE 
#103,2(R2) 
#-1 ULDELGCRL) 
DRVACT(RI) 


4$ 
PC, OPT 
4$ 


an 
iST one 1 eGuEST 
BRI Q OFFLINE 
et Po INITIALIZE INIDICATOR 


SUBSYSTEM REQUEST 


RIVER 
ER OF DRIVES PARAMETER BLOCK 


HE UEU 
crete HERE IF REQUEST IS IN QUEUE OR THERE 
315 AN ERROR CONDITION 


save THE CALLING STATUS 
ALLOW ANY RPOY INTERRUPTS 
‘3 ae DRIVER” FLAG 
KUP_THE DRIVE PARAMETER BLOCK POINTER 
CLEAR THE STATUS/ERROR INDICATOR 
CKUP THE DRIVE NUMBER 


F NE 

D COMMAND IN QUEUE? 

; TRYING TO INIT THE DRIVE 
*BR IF Y 


;UNIBUS ADDRESS OF RHCS1 
360 INIT, a DRIVE 


SEE IF _PORT "REGEST OUTSTANDING 

iTS DRIVE STATUS ONLINE? 

t OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
iBR IF_YES 


DRIVE 
sBUT IMS REQUEST IN QUEUE 
ils THIS REQ. FOR AN UNLOAD? 


THE “UNLOAD IN QUEUE” FLAG 
ie" THIS DRIVE ACTIVE? 


IF_YES 
CALL THE OPTIMIZER 








— 
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4 O3e06e 02 
7665 032064 004737 O32e%46 4S: JSR PC,CI3 ;START A SEARCH 
7666 032070 012637 177776 S$: MOV (SP)+, daPS sRESTORE PROC. STATUS 





RH11/RPO4 BRIVER SINGLE/DUAL PORT VERSION 
761 l 120000 00016 3 #BIT1S!B1T13, 16(R2) SET THE “UNLOAD IN QUEUE” ERROR FLAG 
Se eu 
rela 140 ; ? SESE om cre Acton re A t + VER" FLAG 
7615 pated ? 030836 MOV Spo aaPS teh act is OBER LEVEL 
7616 O31650 00 RTS RO !RETURN TO 
7617 031652 904737 032770 b$: JSR PC,CI7 GO HANDLE or LERRITY ERROR 
7618 031656 000765 ae 4 
7619 031660 004037 036744 73: ISR RO, DRVQUE :PUT REQUEST IN QUEUE 
7620 031664 900763 BR 5 SQUEUE 1S FULL 
7621 031666 032714 000100 BIT #BI1TO6, (RY) ?IS *IE’ SET ALREADY ? 
7622 031672 001357 BNE 4g ‘BR IF IT IS 
7623 031674 004737 036276 ISR FC, SET. IE ;SET INTERRUPT 
7624 031700 000754 BR 4g ?RETURN, REQUEST IN QUEUE 
7625 031702 105761 o305S6 8S: TSTB DRVSTACRIL) SEE IF DRIVE OFFLINE OR UNSAFE 
7626 031708 O02404 BLT 95 R IF UNSAFE 
7627 031710 OSe762 140000 O00016 BIS ¥BITIS!BITI4, 16(R2) -ERROR--DRIVE IS OFFLINE 
7628 031716 O0074S BR 4g -GO TO EXIT 
7629 031720 OS2762 110000 O00016 9S: BIS #BITIS!BIT12,16(R2) _;ERROR--DRIVE IS UNSAFE 
7630 031726 000741 BR 4§ -GO TO EXIT 
7532 ;¥OPTIMIZER-CALLED FOR A PARTICULAR DRIV 
7634 3 *CALL 
7635 * MOV #DRVNUM, R1 DRIVE NUMBER TO RI 
seb +" ISR PC, OPT SETUP A COMMAND 
ope 031730 037 037104 OPT: JSR RO SAVRLS ;SAVE RI-RS 
7639 931734 01374 177776 MOV = aS SAVE PROC. STATUS 
7640 031740 146137 030702 030630 BICB araBtT(R1), SRC CHM CLEAR “SEARCH WAIT” KEY 
7641 03174 004737 037020 ISR PC, GETREQ 1 “pee POINTER OF REQUEST 
7642 031752 TST Re’ ite THERE A REQUEST IN QUEUE? 
7643 031754 O014Se2 BEG 6$ *NO--BRANCH TO EXIT 
7644 031756 105761 030556 TSTB DRVSTACR1) 31S DRIVE ONLINE? 
7645 031762 003006 BGT 1s : YES--BRANCH 
7645 031764 004737 037042 JSR QUE NO--REMOVE REQUEST FROM QUEUE 
7647 031770 140000 coonis BIS WStTiSeBITI4, rect -SET ERROR BIT OF STATUS/ERROR INDICATOR 
7648 031776 OC0434 BR ; BRANCH TO EXIT 
7649 032000 012764 OO00000 oD0dl2 1S: MOV #0, RHDS1(R4) EIZE THE DRIVE OR SET REQUEST 
7650 032714 004000 BIT eBiT1i, (RY) DRIVE AVAILABLE ? 
7651 eee 1441 BEQ ? 
7652 0320014 122762 O001S0 oD000e CNPB  - #150, 2(R2) ‘Is THE REQUEST FOR 1/0? 
7653 O3e02e2 O0c403 BLT 2s : YES--BRAN 
032024 004737 032354 JSR PC,CI4 CALL THE COMMAND INITIATOR 
| 7655 032030 000417 BR 5§ ;BRANCH TO EX IT 
7656 O3203¢ 0087 7 030700 2S: TST DTUW ?DATA TRANSFER UNDERWAY? 
7657 032036 le BGE 4 YES--GO START A SEARCH 
7658 O32040 005737 030656 TST SEEKFG :DO IMPLIED SEEKS? 
7659 032044 100404 BMI $ i YES--- BRANCH 
| 7660 032045 004037 033226 ISR RO,LA iNO=—00 L K AHEAD 
7661 O320S2 O00406 BR S$ *RETU N HERE ON A PARITY ERROR 
7662 032054 000403 BR 4§ :G0 SRART A SEARCH 
7663 0320056 004737 032140 38: JSR PC,CI1 ‘START A DATA TRANSFER 
766 0004 BR S$ 
i 
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DERPNB.P1l RHI1/RPOY DRIVER - SINGLE/DUAL PORT VERSION 
7667 032074 004037 037124 JSR RO, GETRIS sRESTORE R1-RS 
7668 032100 000207 RTS 
7669 032102 032714 o00100 6$: BIT #BITO6, (RY) ;SEE IF ‘IE’ ALREADY SET 
7670 O32108 001370 BNE o$ :BR IF SET 
7671 032110 004737 026276 ISR PC, SET. IE ‘SET "IE" WITHOUT A “TRE” 
7672 032114 000765 BR S$ ‘EXIT THE RO 
7673 03 1 12761 177777 O30616 7S: MOVB  &-1,DPROS(RL) :SET PORT REQUEST INDICATOR 
7674 124 0101 MOV R1,R3 SET UP TO ADDRESS WORDS 
7675 032126 006303 ASL R3° NVERT TO WORD INDEX 
S58 032130 912763 023420 030660 MOV #10000. TIMERS) START 10 SEC TIMER 
gor? 032136 000761 BR 6$ set Ie’ 
7679 ;*COMMAND INITIATOR 
7680 ; 
7o81 **CALL 
7 2% MOV sDRVNUM, RI :DRIVE NUMBER 
7683 x MOV #0PB, R2 ; ADDRESS OF DPB 
7684 ii JSR pc, ci? s¢1?= CI1,C13, OR CI4 — 
7686 :% : HERE TRANSFER 
7687 + :CI2=SEARCH REQUESTED BY DATA XFER 
ob88 Ls ‘CIY=NOT DATA TRANSFER 
7890 032140 004727 037042 Cll: JSR PC, POPQUE sREMOVE REQUEST FROM "DRIVES WAIT" QUEUE 
7691 032144 010237 030626 MOV Re, TRNSWT “PUT REQ. IN TRANSFER WAIT QUEUE 
7692 032150 010203 Cl2: MOV R2’R3 *DPB ADDRESS TO R3 
7693 032152 013704 030714 MOV RPADR *RHCS1 ADDRESS 
7694 O32156 010164 o00010 MOV Rr RNCSS(RY) *SELECT DRIVE 
7695 932162 062703 000004 ADD #4°R3 {DESIRED WORD COUNT 
76% 032166 704 go0002 ADD #2°R *RHWC ADDRESS 
7697 032172 012324 MOV (R3)+, (R4)+ LOAD WORD CO 
7698 032174 012324 MOV (R3)+; (R4)+ *LOAD BL--ER ADD 
7699 032176 012346 MOV (R3)+'-(SP) :LOAD SECTOR 
00 032200 004037 036036 RO,WRT.RP *CALL THE LOAD(WRITE) ROUTINE 
7701 032204 000006 RHDA ; INDEX OF REGISTER TO LOA 
032205 032770 C17 “ERROR RETU 

7703 O32210 012346 MOV (R3)+,-(SP) LOAD CYLINDER ADDRESS 
7704 O322l2 004037 036036 JSR RO, WRT. RP 
7705 O32216 000034 RHCA 
7706 O32220 032770 C17 
7707 O3ee22 O162e% oo0002 MOV 2(R2),-(SP) sLOAD “COMMAND+GO", "AL78A16", ANC “PSEL” 
7708 O32226 004037 036036 JSR RO, WRT. RP 
7709 O32232 op0000 RHCS1 
7710 O32234 032770 CI? 

| 27711 032236 010137 030700 MOV R1, OTUW ;SET “DATA TRANSFER UNDERWAY” 
7712 O32e42 000137 032732 IMP crs 
7713 032246 013704 030714 CI3: MOV RPADR, RY ;RHCS1_ ADDRESS 
7714 010164 MOV RL,RHCS2(R4)  ;SELECT DRIVE 
771S O32e56 Olfe¥ O0001e MOV tetRe),-(SP)  ;DESIRED CYLINOER ADDRESS 
7716 O3eebe 004037 036036 JSR RO, WRT: RP 
7717 O32266 000034 RHCA 
7718 032270 032770 C17 
7719 032272 116203 OO0D10:. MOVB  10(R2),R3 sPICKUP SECTOR ADDRESS 
7720 032276 163703 030730 SUB MXWNDW; R3 “BACKUP BY MAX. SEARCH FOR I/O WINDOW 
7721 O3e302 O02002 BGE 
7722 032304 062703 co00026 ADD #22. ,R3 : 

| 

| 
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ee 
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000011 
036036 


000131 
036036 
030702 
030714 


000010 
036036 


000105 


000012 
036036 


000115 
035700 


000001 
026036 


000107 
000117 
000103 
000001 
0305 

000001 
036036 


000143 
035700 


000001 
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CI4: 


1$: 
2s: 


3$: 


4$: 


S$: 


3,-(SP) 
Re ersh icspy 
0,WRT.RP 


#131,-(SP) 
RO, WRT. RP 


ATABIT(R1) , SRCHWT 


RPADR, R4 
R1, RHCS2(R4) 
2(Re), Ra 
#121,R3 
1$ 
10(R2),-(SP) 
RO, WRT? RP 
2g 

#105,R3 

3 
12(R2),-(SP) 
RO, WAT: RP 


CI6 
#115,R3 
GS 
RO,RD.RP 


1(R2), (SP) 
RO, WRT. RP 


CI6 

#107,R3 
#117,R3 

CI6 

#103,R3 

S$ 

#1 povee ee 
DRVSTACR1) 
#1, as (4 i 
R3, -(SP) 

RO, WRT. RP 


PC 
#143,R3 
RO,RD.RP 





;COMBINE THE ATUSTED SECTOR WITH 
THE DESIRED TRACK 
;LOAD DESIRED TRACK & SECTOR 


;START A SEARCH 


;SET “SEARCH WAIT” KEY 


;RHCS1_ ADDRESS 

SELECT DRIVE 

PICKUP THE REQUESTED COMMAND 
:15 ah) A SEARCH COMMAND? 
:BRANCH IF _NO 

;LOAD DESIRED TRACK & SECTOR 


OAD CYLINDER 
T A_SEEK COMMAND 


DESIRED CYLINDER 


Ooze 
oO 
<x 


LOA 


31S IT AN “OFFSET” COMMAND? 


MERGE THE OFFSET VALUE INTO RHOF 
BUT DON’T CHANGE THE UPPER 


;BYTE WHEN LOADING THE 
REGISTER (RHOF) 


360 START THE COMMAND 

31S ITA all COMMAND ? 
sBRANCH IF 

;1S-IT A RETURN TO CENTER? 
; BRANCH IF Y 

31S IT AN “UNLOAD” COMMAND? 
:BRANCH_IF_NO 
SET THE DRIVE yy hy 
:PUT DRIVE STATUS TO OFFLINE 
SET “UNLOAD IN BROGRESS™ FLAG 
START THE “UNLOAD” COMMAND 


mere TO USER 
31S IT A_“SET FORMAT™ COMMAND? 
BRANCH IF NO 

READ THE OFFSET REGISTER 
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nEseNS Pil RHLL-R ReoM Meatien < SINGLE/DURL PORT VERSION 
7779 «(032686 “4 Em Ci? 
7780 032570 Ligeeg 99909: 900002 MOVE 112) LSP) . ;COMBINE “EMT22" “ECI", ANG "HCI" 
oe3 032576 Sante 036036 Ise RO, WRTLR - 3L6R0 “FMT2e", “ECI", AND/GR “HCI”. 
7783 a 735 CI 
| Zee C0436 BR 128 
| 2785 932610 122703 000:41 &$ CMPB ss 141,R3 51S IT A “GET REGISTER” COMMAND? 
77 Rb 14 80102 BNE “BRANCH IF NO 
7787 032616 016203 o00006 78: MoV &(R2) 3 sPOINTS 10. ist ODRESS OF WHERE 
733 , 
7783 032622 -118237 900010 032640 MOVE  10(R2),9S ‘INIT. THE INDEX FOR THE FIRST RE 
7730 032630 116205 000011 MOVE =«-:- LI (Re) ‘RS ‘INDEX OF LAST REG. TO MO 
778] 032634 004037 035700 g$: JSR RO,RD.RP *READ RPOY REGISTER 
7792 40 Do0noD Se: RHCS1 *INDE¥Y OF REG. TO READ 
7793 42 770 CI? 
| 7793 O3e644 Olebe3 MOV (SP)+, (R3)+ ;GET THE CONTENTS OF RHII/RPGY REG. 
7795 O3c646 O02 032640 CMP 95,5 *LAST REG. BEEN READ? 
| 7795 032652 901414 SEQ i2$ :GET OUT IF YES 
| 7797 032654 Be27 3 goco02 032640 ADD 82,95 ; INCREASE THE INDEX BY 2 
7798 O3e662 000764 BR 9g *LOOP=-MORE TO READ 
7799 032664 122703 900145 10$: CMPB  9#145,R3 :IS ITA SELECT DRIVE" COMMAND? 
0326 Sor 4G BEQ 125 BRAN cH IF mis 
282 : 0326 1 118: MOV R3, ASP, LOAD T 
7802 032674 004927 036036 JSR RO; WRT. 
| 7803 032700 900000 RHCS] 
| 7804 032702 032770 CI? 
| 7805 032704 904737 037042 128: JSR PC, POPQUE ; REMOVE REQ. FROM QUEUE 
| 7806 032710 OSe7be 000200 Oo0dl1E BIS a8tT07,16(R2)  :SET T 
7807 932716 005737 O30654 TST SAVEFG SAVE hi RH1I/RPOY REGISTERS? 
/ 7808 032722 100002 BPL 1 N 
| 7809 032724 004737 036200 ISR PC, SVRH11 HES G0_ SAVE THE REGISTERS 
| 7810 932730 000207 138: RTS pC ‘RETURN TO USER 
| 7811 032732 006301 CIS: ASL Ri 
' ?Bi2 032734 012761 001750 030660 MOV #1000. , TIMER(RI) :SET A ONE SECOND TIMER 
| 7813 O3e742 006201 ASR 
| 7814 032744 112761 000001 030546 MOVE © #1,DRVACT(RI) SET THE RIVE ACTIVE 
| 7B15 S3erse 000207 RTS P ‘RETURN TO THE USER 
 -7B1B 754 «010346 CIé: MOV R3,-(SP) “LOAD THE COMMAND 
7817 032756 004037 036036 JSR RO; WRT .RP 
| 7818 932762 900000 RHCS 
_ 7819 032764 932770 C1? 
| 7820 032766 000761 5a CIs 
7821 032770 005702 C17; +=—«*TST Re sANYTHING IN QUEUE ? 
7Be2 O3e77e 001 BEQ CI7B8 *BR IF NOT 
7823 032774 Ole7b2 104000 OD001e MOV SBITIS'BITI1, 16(Re) ;SET “PARITY” ERROR INDICATOR 
7824 033002 004737 036200 ISR PC, SVRH11 ;G0 SAVE’ THE RH11/RPOY REGISTERS 
| 78285 033006 012746 OO0I1i CI7B: MOV ili,-(SP) 200 A “DRIVE CLEAR 
7826 033012 036036 JSR RO,WRT.RP © 
7627 O23016 RHCS1 
7828 C18 
7629 032022 737 036724 JSR EMPTYO EMPTY THE GUEUE 
7630 105061 CLRB  —:ULDFLG(R1) ‘CLEAR THE UNLOAD IN QUEUE FLAG 
783 105061 O20546 €LRB VACT(RI) “DRIVE IS IDLE 
020137 030700 CMP R1, OTUW IF THIS DRIVE HAD AN 1/0 REQUEST 
a. 3042 001005 BNE 1 IN PROGRESS CLEAR ALL OF THE FLAGS 
7834 033044 005037 020626 CLR TRNSWT 
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MOV g-1,OTUN 


1$: RTS : 
cre: JSR RO. SAVRIS :SAVE RI-RS 
Hoy RPROR, R *PICKUP THE ADDRESS OF THE FIRST REGISTER 
CLR R3 
18: TSTB © ORVACTCR1) sDRIVE ACTIVE? 
BEG 4§ *BRANCH IF NO 
MOV TRNSKT, R2 :GET THE “TRANSFER WAIT” QUEUE 
CMP R1,07UN :DID THIS DRIVE HAVE AN 1/0 IN PROGRESS? 
BE 23 “BRANCH IF ves 
JSR PC, GETREQ :GET THE DPB POINTER 
2s: TST Re :QUEUE ENTRY FOR DRIVE ? 
BEQ 3$ BR 
81S aBITI5¢81T10, letRe) ; 
ISR SVRHI1 sSAVE RHLI/RPO4Y REGISTERS 
33: MOV Aa TIMER(R3)  :STOP he TIMER 
CLRB = ORVACT(R1) :SET “DRIVE ACTIVE” TO IDLE 
4$: CLRB — ULDFLG(R]) :CLEAR UNLOAD FLA 
INC RI *MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE DRIVES 


JSR LROQUE ‘CLEAR ALL OF THE REQUEST QUEUE 
MOV wat ioe. RHCS2(R4)':00 A MASSBUS INIT. 
ISR PC, SET: IE :SET "IE" WITHOUT “TRE™ 
JSR RO’ GETRIS ; RESTORE THE REGISTERS 
RTS PC’ RETU 

:#L00K AHEAD ROUTINE 

CALL 

: MOV sDRVNUM, RI s DRIVE NUMBE 

# MOV #DPB, Re’ :POINT TO DPQ 

iH JSR RO,LA GO CHECK THE WINDOW 

+ RE TENE OORT A SboRCH 

:# RETURNS *START A DATA TRANSFER 

LA MOV RPADR, RY ;GET RHCS1’S ADDRESS 
MOV RI,RHCS2(R4) SELECT DRIVE 
JSR RO; RD. RP *READ CURRENT CYLINDER 
4§ OR RETURN ADDRESS 


;ERR 
CMP (SP)+, 12(R2) is ween CYLINDER=DESIRED 


BNE 3$ 3;EX NO 
INCB = LACNT(R1) SE ae THE LOOK AHEAD COUNT 


CMPB. = =—s LACNT(R1), MXLACT” pEXcaeD UX 


BGT YES 

MOVB 10(R2),R3 CET DESIRED SECTOR ROORESS AND 
SWAB sé MULT. BY 64--ALIGN WITH 

aan 3 LOOK AHEAD REGISTER 





es 





F NOT 
;SET “NON-CLEARABLE PARITY” ERROR INDICATOR 


;NO DATA TRANSFERS UNDERWAY 
CLR TRNSUT :CLEAR THE “TRANSFER WAIT” QUEUE 
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8340, a8PS 
RO 


R JRO. RP 
RHLA 
4 
Sus (SP)+,R3 
BGE 
ADD #<22. #64.) ,R3 
1s CMP MXDLTA,R3 
SLT 
CMP page 
BGE 
23: CLRB = LACNT(R1) 
TST (RO)+ 
38: TST (RO)+ 
RTS RO 
45: JSR PC ,CI7 
RTS RO 
;*#INTERRUPT SERVICE ROUTINE 
ISR: MOVB  &1,ACTORV 
JSR RO: SAVRIS 
MOV RP 4 
MOV DTUN, Rl 
BLT 1$ 
JSR PC, TD 
ite es 
1S: ISR c,SC 
23: JSR Be GETRIS 
CLR8s actor 
RTI 
; TRANSFER DONE ROUTINE 
TD: CLRB DRVACT(RI) 
MOV #-1, OTUW 
ASL 
MOV #-1, TIMER(R1) 
ASR R1 
MOV TRNSWT , R2 
CLR TRNSWT’ 
BIS #81707, 16(R2) 
MOV Rl, RHCSE(RY) 
JSR 0;RD.RP 
RHCS1 
C17 
ROL (SP)+ 
BMI 3$ 
TST SAVEFG 
BPL 
ISR PC, SVRH11 
1S: JSR iW 
JSR PC; GETREQ 
TST Re 
BEQ 2$ 
JSR PC, OPT 








;PRIORITY LEVEL "7" 
READ LOOK AHEAD REGISTER 


;CALCULATE THE DELTA 
; MAKE Ne DELTA POSTIIVE 
;CHECK THE DELTA TO SEE 
IF IT IS WITHIN THE 
NDOW---IF YES, ZERO 
AHE T 


I 
; THE LOOK AHEAD COUN 
;AND TAKE THE 1/0 EXIT 


SAOSUST THE RETURN ADDRESS 


:PROCESS THE ERROR 
;TAKE ERROR RETURN 


367 Bolaye DRIVER” FLAG 


SS OF RHSCS1 
;GET “DATA TRANSFER UNDERWAY” INDICATOR 
;BRANCH IF NO DATA TRANSFER UNDERWAY 
sO TRANSFER DONE 
CALL sree in CONDITIONS 


RESTORE R1-R 
CLEAR FACTIVE DRIVER” FLAG 


;SET DRIVE ACTIVE yt eee TO IDLE 
NO DATA TRANSFERS UNDERWAY 


;CANCEL TIMEOUT 


;GET “DPB” ADDRESS FROM THE 
snares WAIT QUEUE--CLEAR QUEUE 


;SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1)? 


;BR IF_YES 
;SAVE THE RH11/RPO4 REGISTERS? 
: BRANC 


H 
YES--SAVE THE REGISTERS 
;SEE IF WRITE CHECK TO BE PUT IN QUEUE 
:GET ve POINTER 
ENTRY FOR DRIVE ? 


sBR IF NOT 
CALL OPTIMIZER 
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DE GLE/DUAL PORT VERSION 
7347 033550 000520 BR sce sSPECIOL CONDITION (ENTRY #2) 
cae 032552 Ole714 000113 2s: HOV #113, (RY) RELEASE THE DRIVE 
¢ 9005 
7950 aasse0 bse7be 100100 OO00IE 23$: BIS BBITIS'BITOS, 16(R2) ;SET DATA ERROR FLAG 
7951 25 737 036724 ISR PC EMPTY sEMPTY THE “DRIVES WAIT” QUEUE 
7952 033572 004737 036200 JSR PC’ SVRH11 :SAVE THE RHII/RPOY REGISTERS 
7953 033576 912714 O40111 MOV #40111, (RY) SISSUE A “DRIVE CLEAR” 

7954 033602 012714 000113 MOV #113, (RY) * ISSUE A RELEASE TO THE DRIVE 
te 033606 BR sce ‘SPECIAL CONDITION (ENTRY #2) 
ae ;#FORCED WRITE CHECK ROUTINE 
7359 033610 7 001316 We: TST AUTOCK sAUTOMATIC WRITE CHECKS ? 
7965 032614 001437 BEQ : NOT 
7961 033616 le276e O00002 000030 CMPB  #2,SCODE(R2) LAST OPERATION WRITE DATA ” 
7962 932624 O01404 BEQ :BR IF IT WAS 
7963 033626 122762 000003 000030 CMPB © #3, SCODE(R2) LAST OPERATION WRITE HEADER & DATA ? 
7964 033634 001027 BNE 25 :BR IF NOT 
7365 033636 004037 036744 1S: ISR RO, DRVQUE :PUT THE OPERATION IN THE QUEUE 
7965 O33642 O00424 BR 2s “QUEUE IS FULL 
7367 O32644 000016 CLR 16(R2 “CLEAR ’DONE’ BIT IN DPB 
7368 11 000032 MOVB §CODE(R2).SPREVOLR2) § :SAVE WRITE OPERATION CODE 
7969 033656 01 o00012 of0040 MOV SCYL(R2), $PREVA+2(R2) ;SAVE CYLI 
| 7970 033664 O16262 0090010 000036 MOV SSEC(Re) SPREVA(R2) ;SAVE SECTOR AND TRACK ADDRESSES 
| 7971 933672 14 000030 BICB #2,SCODEIR2) ;CHANGE WRITE T 
7972 833905 i goo0d2 BICB #20,S$COMND(R2) CHANGE DRIVER CODE TO WRITE CHECK 
7973 033706 152762 O000i0 o00002 BISB  810,SCOMND(R2) ;FINISH CHANGING CODE TO WRITE CHECK 
7374 033714 000207 zs: RTS EXIT F 
ee ;#SPECIAL CONDITION ROUTINE 
SC: CLR Rl sSTART WITH DRIVE 0 
bang faa7eB Siero 00001 MOV —s #1, R2 
| 7980 033724 105761 030556 1S: TSTB  DRVSTACRI) s NONEXISTENT? 
| 7981 033730 002030 B : NO--BRANCH 
7982 033732 105761 030606 TS DPINT(R1) *TRYING TO INIT THE DRIVE ? 
| 7383 03373 001025 sce tYES- 
| 7984 033740 0o0S201 INC Ri *YES--MOVE 10 THE NEXT DRIVE 
| 7385 O3374e 1 ASLB Re >MORE DRIVES? 
| 7986 933744 103367 BCC 1$ : YES--BRANCH 
| 7987 033746 012764 OO0040 000010 MOV 8BITS,RHCS2(R4) *:INIT THE SYSTEM 
| 7988 033754 OOO410 BR SCA ; TAK EXIT 
| 7989 033758 012701 oo0010 SCl: MOV #8. ,R1 DO EIGHT DRIVES 
| 7990 005301 18: DEC Ri *NEXT DRIVE 
| 7991 033764 002754 T sc *BRANCH IF OUT OF DRIVES 
| 7992 033766 105761 Oo30S46 TSTB © DRVACT(RI) IS THIS DRIVE IDLE? 
| 7993 033772 001373 1$ : H IF 
| 7994 033774 104001 ERROR 1 ILLEGAL. INTERRUPT 
| 7995 033776 112764 177777 000016 SCIA: MOVB  %-1,RHAS(R4) | ;CLEAR ANY OUTSTANDING ATTN BITS 
| 7996 O34004 004737 036276 ‘ _ PC, Ser. Ie *GO SET INTERRUPT ENABLE 
| 7997 534010 000207 RTS ¢ 
| 7998 03401 b1e701 000003 Sc2: MOV . #3,R1 ;READ RHAS UP TO THREE TIMES 
| 7999 O34016 116403 000016 18: MOVB ,RHAS(R4),R3 = ;READ “RHAS™ 
| g000 O240e8 001911 $ “BRANCH IF ANY ATA BITS = 1 
| 8001 O34024 005301 DEC 1 ‘COUNT THIS R 
| e002 034026 003373 BGT 1$ ‘LOOP IF MORE READS ALLOWED 
| 
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g002 024 904037 935700 ISR RO,RO.RP :READ CONTROL AND STATUS REGISTER 
8004 Ba apsq 000900 RHCS! 
8005 034036 033060 C18 is : 
+ ad 3 | 
Set nett eit BPL St} inB=-1 Fike “ERROR EXIT 
S508 BS OBSNoNe eine 2g RR SP) PROCESS ALL DRIVES THAT HAVE 
8010 nets 110316 MOVB —«-R3, (SP) 
8011 034052 012703 o00001 MOV #1/R3 
Bole OsH056 905001 CLR RI 
801 030316 scu: BIT R3, (SP) ;ATA=1? 
8014 34062 901005 SNE g : YES--BRANCH 
8015 O34064 005201 S¢3: INC Ri :MOVE TO THE NEXT DRIVE 
80:6 O34066 106203 ASLB 3=sRB 
8017 034070 001373 BNE Sc4 BRANCH IF MORE TO CHECK? 
8018 O34072 005726 TST (SP)+ CLEAN OFF THE HE STACK 
8019 034074 000207 RTS PC "RETURN TO USER 
8020 034076 105761 030606 StS: TSTB DPINT(RL) s INITIALIZING THE DRIVE ? 
8021 O34102 O01402 BEQ +6 
8022 O34104 000137 034766 §¢13 t PRocESe THE DRIVE 
8023 034110 105761 930616 TSTB  DPROS(RI? ‘PORT REQUEST OUTSTANDING ? 
8024 034114 001402 BEQ +6 BR IF NOT 
8025 O34116 000137 034766 IMP SCi3 START THE OUTSTANDING COMMAND 
8025 O34122 023701 CMP DTUW, RL 15 THIS DRIVE SETUP FOR 1/0? 
8027 034126 001003 BNE g 
8028 034130 005726 TST (SP)+ iYES-—-6 BN OFF THE STACK (RHAS) 
8029 034132 000137 033434 IMP TD 70 Fen ER DONE’ 
8030 O31 3 105761 O30S56 18: TSTB  DRVSTA(R1) OH cK HE DRIVE STATUS 
| 8031 934142 003041 BGT ‘BRANCH IF ONLI 
| 032 O34144 [05761 030634 TSTB ULDFLG(R1) ‘UNLOAD IN PROGRESS? 
8033 034150 003422 BLE Fo} BRANCH IF NO 
8034 034152 004737 037020 ISR PC, GETREG :GET DPB POINTER 
8035 O34i56 004737 036200 JSR PC’ SVRHI1 :SAVE THE RH11/RPOY REGISTERS 
| 8036 034162 004737 O34716 J5R PC;SCi2 s SAVE RHDS1. RHERI, RHER2, AND RHER3 
"ALSO DO A DRIVE tart (DRVINT) 
8038 O34166 105761 o305S6 TSTB DRVSTA(R1) “DID DRIVE COME ONLINE? 
| 8039 O9M17e OO3413 E NO=--BRANCH 
| O49 034174 032737 O40000 030536 BIT #BIT14Y,RPERRS  ;WAS THERE AN ERROR? 
| BO4l O34202 o0100e2 BNE +6 BR IF ERROR 
BO42 O34204 000137 IMP §cil NO ERROR 
8043 O34210 913705 O30S40 ; MOV RPERRS+2, RS *YES == PICKUP RHER1 AND 
8044 034214 000463 BR SCEA GO PROCESS THE ERROR 
BO4S O34216 004737 034716 2s: JSR PC, SCl2 ;SAVE RHOS1, RHERI, RHER2, AND RHER3 
| BOG ASO 00-8-ORVINT.” 
8047 O34222 116164 030702 OO00016 3s: MOVB ATABIT(RL), RHAS(R4) ;CLEAR THE ATTENTION BIT 
| B048 034230 O1e714 900111 MOV #111 sISSUE A ’DRIVE CLEAR’ 
| BOYS 034234 Ole7i4 000113 MOV a13° (Ra) *RELEASE THE ORI 
6050 O34 011605 MOV (SP)>RS *PICKUP (RHAS) BEFORE THE ERROR CALL 
8051 034. 104005 ERROR 5 ;REPORT THE ERROR 
| 8052 244 000707 BR Sc3 GO CHECK FOR MORE ATA’S 
8053 246 105761 0320546 SCé: TSTB DRVACT(RI) ‘CHECK THE DRIVE ACTIVE INDICATOR 
8054 O34252 001552 BEQ SC10 *BR IF IDLE 
8055 034254 00630! ASL 1 
8056 256 012761 177777 030660 MOV #-1,TIMER(R1) ;STOP THE TIMER 
| 8057 034264 006201 ASR sR 
| 8058 266 004737 037020 JSR PC, GETREQ GET THE DPB POINTER FROM THE QUEUE 
; 
j 
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8059 034272 010164 000010 MOV R1,RHCS2(R4) ; SELECT DRIVE 
060 004037 035700 JSR RO, RD.RP “READ THE RPO4’S STATUS REG. 
1 2 RHDS1 
8052 304 o34ss4 SC8 
8063 034206 011605 MOV (SP) RS :AND PUT IT IN RS 
8064 034310 006126 ROL (SP)4 ‘WAS THERE AN ERROR? 
8065 O34sl2 100407 SMT 13 ‘BR IF ERR 
8066 O34314 105761 O30S46 TSTB  DRVACT(RI) *CHECK DRIVE’S STATE 
B06? 034320 po3142 857 S¢ll “BR IF DRIVE ACTIVE WITH ORDER 
8068 O343e2 ; 100210 oo0d16 BIS BSITIS!BITO7!BITO3, 16(Re) ;INFORM USER OF ERROR RECOVER COMPLETION 
80639 034330 000472 BR 
8070 034332 004037 035700 1: JSR RO,RD.RP ;READ ERROR REGISTER #1 
8071 034336 000014 RHERL 
8072 034340 O345S4 SCs 
8073 O34342e 012605 MOV (SP)+. RS sAND SAVE IT IN RS 
8074 9034344 737 O36200 ~ _ ISR PC, SVRH11 - :SAVE RH11/RPO4 REGISTERS 
8075 O343S0 Ole746 OO01l] — “MOV #ili,-«SP) ISSUE A DRIVE CLEAR 
8076 034354 004037 036036 ‘JSR RO, WAT. RP 
8077 034360 O00000 RHCSI 
Boog pada Bette SCBA: ROL RS sWAS “UNSAFE” CONDITION =1? 
8080 034366 100406 BMI 1$ *BRANCH IF YES 
8081 034370 005702 TST R2 *ANYTHING IN QUEUE ? 
g082 034372 001403 BEQ +10 :B NOT 
8083 934374 OSe7b2 100240 O00016 BIS SBITIS!BITO7!B1TOS, 16(Re) s INFORM USER OF ERROR 
goe4 o34402 oo044s BR C? 
BO8S O34404 035700 1S: JSR RO,RD.RP sREAD DRIVE STATUS REG. #1 
8086 O34410 O000le2 RHDS1 
8087 834412 034554 Sc8 
034414 011605 MOV (SP),RS ;SAVE RHDS1 IN RS 
034416 0061 ROL (SP)4 "ERR" =1? 
034420 100014 BPL 2s *BR IF NO--UNSAFE CLEARED 
8091 Dace 76 477777 030556 MOVB  #-1,DRVSTA(RI) ;DRIVE IS UNSAFE 
| gos g344 JSR «PC. SVRHI1 SAVE RH117RPOY REGISTERS 
| BOSS 034434 116164 030702 oD0016 MOVB  ATABIT(R1),RHAS(RY) ;CLEAR ATTENTION BIT 
£594 cave OSe762 1109000 Oo00016 BIS #BIT1S!B1Tle, 16(Re) sINFORM USER OF UNSAFE ERROR 
B09S o0d4e2 BR SC? 
80% o344S2 105705 23: TSTB. sR "DRY" =1? 
8097 Osos 100415 BMI 3$ “BRANCH IF YES 
8098 112761 177777 030546 MOVB  8-1,DRVACT(RI1) ACTIVE ERROR RECOVER 
8099 112761 000001 030556 MOVB #1,ORVSTA(R1)  ;ONLINE 
' 100 034472 006301 ASL Ri 
| B101 O34474 Ol2761 072460 030660 MOV #30000. ,TIMER(R1) ;START 30 SECOND TIMER 
| 6102 O34S02 1 ASR Ri 
| 6103 O34504 000137 o34064 IMP S¢c3 
B104 034510 OS2762 100220 OO0016 3%: 81 #BIT1S'BITO7!BITOY, 16(R2) s INFORM USER OF ERROR 
8105 16 105061 46 sc7: ¢ DRVACT(R1) sDRIVE IS IDLE 
| B106 O34S22 004737 036724 JSR PC, EMPTY >DUMP THE QUEUE 
| §107 Oabee 012714 000113 MOV #113, (RY) *RELEASE THE DRIVE 
| gioe8 10576 030634 TSTB —sCULOFLG(R1) UNLOAD IN PROGRESS OR QUEUE? 
| 8109 034536 O01 BNE +6 *BR IF NO 
| 8110 034540 000137 o34064 IMP SC3 NO_UNLOAD 
| ell 44 10506 030634 CLRB -ULDFLG(R1) “CLEAR UNLOAD FLAG 
| lle sO 137 O34064 IMP S¢3 
| 8113 034554 Sc8: TST (SP)+ sREMOVE (RHAS) FROM THE STACK 
| S114 034556 105761 030546 TSTB  — DRVACT(RI) IS DRIVE IDLE? 
| 
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es: 


SCle: 


1$: 


SC13: 


1$ s YES- “BRANCH 
PC, GETREQ sGET Obs POI 
cI? i NOBRITY ERROR 
¢I7B8 PROCESS PARITY ERROR 
(SP),RS ;PUT (RHAS) I 
pc, sti2 "CAVE NRHDSL, RHER1, RHER2, AND RHERS 
ATABIT(R1) ,RHAS(RY) CL ERR "ATTENTION BIT’ 
#113, (RY) s ISSUE A REL 
2 “REPORT ILLEGAL DRIVE INTERRUPT 
S¢3 GO CHECK FOR MORE ara’s 
ULDFLG(R1) :"UNLOAD IN PROGRESS”? 
1 *BRANCH IF 
ULDELG(R1) ;CLEAR UNLOAD FLAG 
DRY: “SET DRIVE IDLE 
* AN 


ACT(RI) 

ATABIT(R1),SRCHWT sDOING A SEARCH OPERATION FOR 
70 COMMAND? 

sBRANCH fF YES 

PC, POPQUE ;REMOVE REQUEST FROM QUEUE 

#81707, 16(R2) SET” T 

: SAVE THE RH11/RPO4 REGISTERS? 

H IF NO 


? BRANC 
*YES=-SAVE ALL OF THE RHL1/RPOM REG’S 
BYABIT CAL), RHAS (RY) “CLEAR ATTENTION BIT 
BC, OP OPT -START A REQUEST 
RI RHCSE (RH) SELECT DRIVE 


AVE THE FOUR REGISTERS THAT 


RHOS1(R4),RPERRS’ 
WILL TELL US SOMETHING 


RHER1(R4), + REERRS+ 


RHER2(R4) /RPERRS 
RHER3(R4)’ 4 
RO, ORVINT sINIT. THE STATE OF THE DRIVE 
1s TAKE ERROR EXIT 
(SP)+ ‘POP PC OFF OF THE STACK 
sce ; PROCESS THE PARITY ERROR 
Ri TO ADDRESS WORDS 
#1, , TIMER(R1) STOP THE TIMER 
RI.RHCS2(R4Y)  :SELECT THE DRIVE 
aIABTT (RL) “HASAN iCLEDR THE ATTENTION BIT 
#81711, (RY) DRIVE AVA 
is ‘BR IF A vat tABLE 
#10000. ,TIMER(RL) ;START 10 SEC TIMER AGAIN 
3$ sEXIT 
DPINT(R1) sINTTIAL IZING THE DRIVE ? 
INT(RI) : CLEAR THE INIT INDICATOR 
RO, DRVINT GO INIT 
> DUMMY Part ty ERROR RETURN 
DRVSTA(R1) DRIVE ONLINE ? 
2g *BR IF YES -- START ORDER 
Re sQUELE ENT ENTRY FOR THE DRIVE 
PC, GETREQ :GET bP ADDRESS 
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Bis #BITIS!BIT14, 16(Re) 5 ee ORs USER THAT DRIVE OFFLINE 


JSR 

an pe? Mery 
es: CLRS DPRQS(R1) 

JSR PC, OPT 


3S: IMP S¢3 
sxRPO TIMER ROUTINE 


: #TIME,-(SP) 
1% Toh RO, RPTMR 


RPTMR: TST ACTORV 
B 4$ 


NE 
MOVB 81,ACTSTR 
JSR RO, SAVR1S 


CLR 
CLR R 
1S: ist TIMER(R2) 
SUS 16(SP), TIMER(R3): 
BGT 2 
ISR RO, STO 
BR 33° 
2s: INC Rl 
TST (R3)+ 
CMP ot: 
BGT 
3S: ISR RO, GETRIS 
CLRB = ACTSTR 
45: MOV (SP) +, (SP) 
RTS RO 


; SOFTWARE TINEOUT ROUTINE 
S*CALL: STO 


2% MOV #DRVNUM, R1 
1 JSR 0,570 
*% RETURN 
STO MOV aePS,-(SP) 
MOV RPVEC+2. ae 
JSR RO SAVRIS 
V Rr RneS2c RY) 
JSR RO, RD. RP 
RHDS1 
ST05 
TSTB (SP)+ 
BNI T02 
STOl:  TSTB PINT(RI) 


TSTB DPRQS(R1) 
BNE T 
MOV TRNSWT , Re 


BANE UE THE *ieouesT QUEUE 


; CLEAR THE PORT REQUEST INDICATOR 
;START THE PENDING REGUEST 
PROCESS OTHER DRIVES 


;ELASPED TIME IN MILLISECONDS ON THE STACK 
CALL RPOY TIME ROUTINE 


3 CHECK “ACTORV & ACTSTR” 


;1F NON ZERO EXIT 
:SET "ACTSTR™ 
;SAVE_R1-RS 

:START WITH DRIVE 0 


31S Ms Te RUNNING? 


“COUNT THE INTER VAL 
;BR IF NO SOFTWARE TIMEOUT 
“CALL SOFTWARE TIMEOUT ROUTINE 
:GO TO THE EXI 
?MOVE TO NEXT DRIVE 


;OUT OF DRIVES? 
3BR ANCH IF NO 

TORE _R1-RS 
OER ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
sADJUST THE STACK 


;DRIVE NUMBER 
;CALL--DRVACT MUST BE NONZERO 


;SAVE THE PROCESSOR STATUS 
SET Tt a ee TO RPOY BR LEVEL 


GET ARORESS, OF = “RHCS1” 


sREAD “DRIVE STATUS REG” 


31S “DRY*=1? 
:BR IF YES 
; TRY Ne te INTIALIZE THE DRIVE ? 


j OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
*PICKUP TRANSFER WAIT QUEUE 
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BR 4 
G2e82 035600 :05061 030606 STO&: CLRB ODPINT(R1) ;CLEAR THE INITIALIZE INDICATOR 


8227 935308 020137 030700 CMP Rl, DTUW s TRANSFER UNDERWAY ON THIS DRIVE? 
58 Gait BO om Et ere 
8230 B3ae0 10;000 000016 1S: BIS Sr, ech T Ope AopR ERE oR F FLAGS 
1 3 ? 26200 ISR SAVE. RH RHI1/RPOY REGISTERS 
8232 O35332 012764 O00040 oD0010 MOV abt TOs, aucsecRs)’ -"INIT" THE MASS BUS 
8233 035340 105061 O30S46 CLRB sOORVACTIRI sORIVE IS IDLE 
8234 035344 105061 030634 €LRB ULOFLGCRL) ‘CLEAR THE UNLOAD FLAG 
8235 035350 O056u1 CLR ‘START WITH DRIVE 0 
8236 835352 005003 ELR fA 
8237 035354 004037 031160 23: ISR RO, DRVINT sINIT. THIS DRIVE 
8238 035360 O00S04 BR STOS :PARITY ERROR RE 
8239 035362 105761 O30546 TSTB - DRVACT(R1? :DR IVE IDLE BEFORE RN INIT. ? 
8240 035366 001414 BEQ rY ANCH 
8241 035370 013702 030626 MOV TRNSWT Re IGET TRANSFER WAIT QUEUE 
8242 035374 023701 030700 CMP DTU, Ri {HAS THERE I/O ON THIS DRIVE? 
8243 001402 BEQ 33 --BRANC 
Be44 035402 004737 037020 JSR TREQ THE DPB POINTER FROM QUEUE 
8245 035406 OS2762 100400 oO00016 3%: BIS apttieret 703, isch) ; INFORM USER 
8246 O35414 105061 O30S546 CLRB  DRVACT(RI) T’DRIVE ACTIVE a tLe 
8247 035420 105061 030634 4g: CLRB - ULDFLG(R1) RO UNLOAD 
8248 O354S4 012763 177777 030660 MOV #-1, TIMER(R3) STOP THE TIMER 
8249 035432 005723 TST (ra}+ :UPDATE THE INDEX 
8250 035434 005201 INC Rt ; INCREMENT THE DRIVE NUMBER 
8251 035436 022701 OO0010 CMP #8. ,R1 “LAST DRIVE BEEN CHECKED? 
Bes2 O35442 003344 BGT 2s *NO=-LOOP 
B253 O35444 012737 177777 030700 MOV #-1, DTUW *NO DATA TRANSFERS UNDERWAY 
8254 O354S2 005037 030626 CLR TRNSWT ‘CLEAR TRANSFER WAIT GUELE 
8255 035456 0047 37 036642 ISR pC sgbRaue *CLEAR ALL REQUEST QUEUES 
ages 4 116405 O00016 ST02: MOVB RHAS(RY),RS IREAD AT ATTENTION REG 
8258 035470 136105 030702 BITB ATABIT(RI),RS 315 ATTENTION FOR THIS DRIVE UP ? 
8259 035474 001017 BNE STO :¥ 
8260 035476 105761 030606 TSTB ——DPINT(R1) : TRYING TO INTIALIZE THE DRIVE ? 
8261 001036 T *BR IF YES - DRIVE NOT ONLI 
Bebe 105761 030616 TSTB DPRQS(RI) OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
8263 035510 001052 0 *BR IF YES - NO RESPONSE TO REQUEST 
8264 03551 137 030700 CMP R1, DTUW ;DATA TRANSFER UNDERWAY FOR THIS DRIVE 
03551 1263 BNE STOl 
035520 004037 03570C JSR RO, RD.RP t YES-~CHECK “RDY™ 
8267 035524 900000 RHCS1 
035526 035572 STOS 
8269 035530 105726 TSTB 0s (SP )+ 
8270 035532 100255 BPL 01 _  3BR IF *ROY"=0 
8271 035534 005720 S103: TST (RO)+ ADJUST FOR THE P PROPER RETURN 
8272 035536 105761 030606 TSTB —s- DPINT(R1) *INITIALIZING THE DRIVE ? 
8273 035542 001003 BNE 1$ BR IF INIT PENDING 
Ber pasos 105761 030616 TSTB DPROS(R1) “PORT REQUEST PENDING ? 
| 0014 BEQ STO4 BR IF NOT 
| 8276 035552 012763 177777 O30660 15: MOV #-1, TIMER(R3)  ;STOP THE | TINER 
| g377 004037 037124 S704: JSR RO, GETRIS RESTORE R1-RS 
| 8878 564 012637 177776 MOV (SP)+, J4PS * RESTORE PROCESSOR STATUS 
70 odoc200 RTS R ‘RET 
2 004737 033060 ST0S: JSR PC,CI8 GO HANDLE THE PARITY ERROR 
| 8281 035576 000770 TO 
| 
| 
} 
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8283 035604 105061 o30588 CLRB DRVSTA(R1) “SET UNIT ORER INE 
8284 035610 012763 030660 MOV #-1, TIMER(R3) ;STOP THE TIMER 
8285 035616 004737 455020 ISR PC, GETREG iG T THE OPE ADDRESS 
702 TST Re REQUEST IN QUEUE ? 

24 001755 BEQ STOY NOT 
8288 035626 OS2762 140000 o00016 BIS #BITIS'BITIY, ocd “INFORM THE USER DRIVE NOT AVAILABLE 
8289 34 900414 SR STO8 sEINISH 
8299 035636 012763 177777 O30660 ST07: MOV #-1 TIMER(R3) :STOP THE TIMER 
8291 O35644 105061 030616 CLRB DPROS(R 1) ‘CLEAR PORT REQUEST INDICATOR 
Bese 035650 004737 037020 ISR C,GETREQ ‘GET DPB ADDRESS 
8293 035654 005702 TST Re QUEUE ENTRY FOR DRIVE ? 
£294 035656 001403 BEQ STOS “BR IF NONE 
8295 035660 OS2762 100004 o00016 BIS #BITIS'BIT2,16(R2) _; INFORM USER OF PORT REQUEST ERROR 
8296 035666 004737 036724 sTos: JSR PC, EMPTY “CLEAR THE QUEUE FOR THE DRIV 
8297 035672 004737 036200 ISR PC’ SVRHI1 5 SAVE THE REGISTERS 
ge38 035676 000730 BR sTo4 *RETU 
B00 *ROUTINE TO READ A RHIL/RPOY REGISTER 
§302 ?#CALL 
8303 ~ :% ISR RO,RD.RP :GO READ A REGISTER 
8304 * INDEX sR G. INDEX FROM BASE 
8305 2% ERRADR ERROR ADDRESS--PROCESS ERROR STARTING 
8306 * AT THIS ADDRESS 
B07 * & RETURN CONTENTS OF REG. IS ON THE STACK 
8309 035700 013737 030712 036024 RD.RP: MOV NCPENX RD.RP2 ;MAX. RETRYS ALLOWED 
8310 035706 O1164€ MOV (SP), -tSP) *SAVE RO FOR RETURN 
8311 935710 013737 030714 035724 MOV RPADR, RD. ADR ;FORM THE DESIRED ADDRESS 
8312 035715 062037 035724 ADD (RO)+,RD.ADR | USING THE BASE AND THE INDEX 
8313 013727 RD.RP1: MOV stPC)t tPC) *READ THE DESIRED REGISTER OF THE RPO4Y 
8314 025724 000000 RD.ADR: .WORD 0 ; ADDRESS 1S FORMED HERE 
8315 035726 00000 RD.WRD: :WORD 0 REG. CONTENTS PUT HERE 
8316 035730 013766 035726 oo000e MOV RD.WRD, 2¢SP) *RETURN IT TO THE USER 
8317 035736 01774 172752 MOV JRPADR, - (SP) sREAD | RHCS1 
8318 035742 O3e716 O20000 BIT #81713, (SP) *DID MCPE SET? 
B35 DSe7eR poeeen | ee ee a 
8321 Mees aiid RTS ROC ;RETURN IF NO 
8322 035754 104003 13: ERROR 3 *REPORT “MCPE™ ERROR 
8323 035756 005737 030700 TST DTUW ?DATA TRANSFER UNDERWAY? 
8324 035762 100405 BMI :NO=-BRANCH 
8325 035764 16 40000 . BIT #B1T14, (SP) ;NO--"TRE"=1? 
8326 035770 O0140e BEQ $ : NO--BRANCH 
8327 035772 005726 - TST (SP)+ *YES-=CLEAN OFF THE STACK fio 
8308 035774 O0041S BR RD.RP3 ‘TAKE THE FATAL ERROR EXIT 
8329 035776 052716 O40000 23: BIS #B81T14, (SP) ‘CLEAR "MCPE™ BY SENDING A “1” TO “TRE™ 
8330 036002 000316 SWAB —s- ( SP) ; POSITION BEFORE WRITING 
8331 036004 013737 030714 036020 MOV RPADR, 3$ “FORM ADDRESS OF HIGH BYTE 
8332 036012 005237 036020 INC 3$ 
8333 036016 112637 MOVE (SP)+,a(PC)+  ;WRITE THE HIGH BYTE OF RHCS1 
8334 036020 3S: .WORD O “ADDRESS STO 
8335 O326022 pe wed DEC (PC)+ EXCEEDED nan RETRYS 
8336 036024 000003 RD.RP2: .WORD ; 
8337 036026 002335 BGE D.RP1 BRANCH IF NO 


6338 036030 011000 RD.RP3: MOV RO), RO sFATAL ERROR EXIT 
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8339 026032 012616 MOV (SP}+, (SP) 
B34 036034 000200 RTS RO 
Be ;*ROUTINE TO WRITE A RH11/RPOY REGISTER 
Baie 3 *CALL 
4S 1% MOV DATA, -(SP) sDATA TO BE LOADED ON THE STACK 
8346 x JSR RO, WRT. RP “CALL THE ROUTINE 10 LOAD (Rd TE) nat REG. 
4? x NDEX s INDEX OF THE REG STER 10 
49 :% RRADR ?ADDRESS TO eTUR TO ON al Ee boapee 
B39 % RETURN ‘ERROR FREE RETU 
8351 36 O16637. O00002 036124 WRT.RP: MOV 2(SP),WRT.WD  ;SAVE THE WORD TO WRITE 
6044 O12616 MOV (SP)+) (SP) sADJUST T 
8353 03604 012037 036126 MOV (RO)+,WRT.AD GET INDEX OF REGISTER TO BE WRITTEN 
8354 O0360Se 001020 BNE 2s BRANCH H IF NOT RHCS 
8355 036054 122737 O001S0 O36124 CMPB ss 150, WRT..WD i1 THE COMMAND FOR DATA TRANSFERS? 
8356 036062 002414 BLT 2$ *YES=-DON’T GET THE OLD AL63A17, & PSEL 
8357 036084 004037 935700 ISR RO,RD.RP ?NO---COMBINE Al63A17, & PSEL WITH 
9358 000000 RHCS1 *THE COMMAND BEFORE SENDING IT io” 
8359 036072 036110 >THE RH11/RPO4 
8360 000316 SWAB s« SP?) 
8361 036076 042716 177770 BIC ##C7, (SP) 
8362 036102 112637 36125 MOVB  (SP)4,WRT.WD+1 
8363 035105 o0040e BR 
8364 036110 O11 1$: MOV (RO) ,RO ; TAKE THE ERROR EXIT 
8365 036112 000200 RTS RO 
8366 036114 083737 030714 036126 2S: ADD RPADR,WRT.AD  ;FORM THE ADDRESS OF THE DISK REG. 
8367 936122 012737 MOV (PC)+;a(PC)+ ;LOA D THE DESIRED REG. 
8368 036124 O00000 WRT.WD: .WORD 0 “WORD TO WRITE GOES HERE 
8369 036126 000000 WRT.AD: .WORD 0 ADDRESS IS FORMED HERE 
8370 0326130 004037 035700 JSR RO,RD.RP CHECK FOR PARITY ERROR ON WRITE 
8371 036134 000014 RHERI 
8372 036136 036170 2$ 
8373 036140 032726 000010 BIT #BITO3, (SP)+ 
8374 036144 OO1413 BEQ 3$ sBRANCH IF "“PAR=0" 
8375 936146 016037 177776 636160 MOV -2(RO),1$ *PICKUP THE INDEX 
8376 036154 004037 035700 JSR RO,RD.RP ; READ THE REG. 
8377 036160 oo0000 1S: .WORD 0 REG. INDEX 
8378 036162 036170 2$ ; RETURN TO THIS ADDRESS ON ERROR 
8379 036164 104004 ERROR 4 *REPORT THE PARITY ON WRITE ERROR 
8380 036166 005726 TST (SP)+ CLEAN OFF THE STACK 
8381 036170 011000 2s: MOV (RO) ,RO AKE THE “PARITY ON WRITE” ERROR EXIT 
B386 O3b172 000200 RTS RO 
174 005720 3S: TST (RO)+ const FOR ERROR FREE EXIT 
B34 036176 000200 RTS RO 
B38 s¥ROUTINE TO SAVE THE RH11/RPOY REGISTERS AS PER DPB+14 
| 8388 :#CALL 
| g§339 — * MOV #DPBNUM, R2 ;DPB POINTER TO Re 
| 8390 x JSR PC, SVRHL1 :SAVE THE DRIVES REG’S 
| 8392 036200 004037 037104 SVRH11: JSR RO, SAVRIS sSAVE REG.’S R1-RS 
| 8393 036204 005702 TST Re _ $QUEUE ENTRY FOR THE DRIVE ? 
| 8294 036206 001430 BEQ 4§ BR IF NONE 
| 
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MOV RPADR, RY 
MOVB RpoS RHCS2(R4) 
MOV 14(R2),Re 
BEQ 
CLR R3 
MOV #RHDB, RS 
18: CMP R3,RS 
BNE 
TSTB = RHCS2(R4) 
BNI 
CLR (R2)+ 
BR 3$ 
23: MOV R4,-(SP) 
ADD 
MOV a(SP)+, (R2)+ 
33: TST > 
CMP R3, #RHEC2 
BLE 1$ 
4g: JSR RO, GETRIS 
RTS PC 
*C 
% MOV SDRVNUN RI 
:& ISR C,SET. IE 
x RETURN 
SET. IE: MOV RY, - =(SB) 
MOV RPADR 
MOV Rl, BreescR4) 
MOV (R4).-(SP) 
BIS aBItH, 7p) 
SWAB ss (SP?) 
MOVB  #BITOB, (RY) 
BIT SBT Le" RACS2 (RY) 
BNE z 
Ist (SP)+ 
1$: MOVB  (SP)+,1(R4) 
23: MOV (SP)+'R4 
RTS pc 
*QUEUE COUNT 
QcNT:  .BYTE 0 
"BYTE 0 
"BYTE 0 
"BYTE 0 
“BYTE 0 
“BYTE 0 
‘BYTE 0 
‘BYTE 0 
;QUEUE INPUT POINTERS 
QINPT: .WORD QDRVO 
“WORD QDRV1 


; SELECT DRIVE 
Ssh te ERROR TABLE POINTER 


X 

;COUNTER & POINTER 
PROBLEM REGISTER 
;REACHED RHDB? 


, 

; CHEC 

BRANCH IF RHDB CAN BE READ 
sELSE SAVE IT AS O'S 


;FORM_RH11/RPO4 ADDRESS THAT IS 
510 BE _READ 
nD D_READ IT 

see, TO NEXT REG INDEX 


BRANCH IF NO 
:GET REGIS oy, Modlin 
RETURN TO 


eat TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


;DRIVE NUMBER TO R1 
:SET "IE" 


;SAVE RY 

*PICKUP ADDRESS OF RHCS1 

j SELECT DRIVE 

*READ RHCS1 

“SET THE “TRE” BIT OF THE WORD READ 
:ADJUST FOR DATO 

sSET a ; 
dee--che "TRE" 

: CLEAN LEP RHE STACK 


; CLEAR 1% 
;RESTORE R 
RETURN TO “CALLER 


OVVVV000 
DDADBDADABAD 
cccecccre 
MMmmMmmMmmMmmirl 
NOUWCWM-O 





MAINDEC-11-DERPN-B MACY11 E7(722) 27-SEP-76 15:05 PAGE 183 







ne a ne nr re re re = ee 
i 


DERPNS. P11 RH11/RPO4 DRIVER - SINGLE/DUAL PORT VERSION 
mH 036364 03650 -WORD QDRV2 sDRIVE 2 
4 036366 03652 «WORD QDRV3 sDRIVE 3 
pe es tees nce 
yee Gaeseq | GSeeOS “HSE GBRV DRIVE & 
aes 036376 036622 «WORD QDRV? ;DRIVE 7 
eee ;QUEUE OUTPUT POINTERS 
8480 036400 936442 QOUTPT: .WORD QDRVO sDRIVE 0 
B461 036402 O36462 WORD QDRV1 sDRIVE 1 
6462 036404 9036502 WORD DRV2 ‘DRIVE 2 
8463 036408 036522 WORD DRV3 sDRIVE 3 
8484 036410 036542 WORD QDRV4 sDRIVE 4 
8465 036412 “ WORD QDRVS sDRIVE 5 
8466 036414 036602 WORD GORV6 :DRIVE 6 
8467 036416 036622 WORD  QDRV7 sDRIVE 7 
B469 036420 036442 QSTART: .WORD QDRVO ;DRIVE O START ADDRESS 
8470 O3642e 0364 QSTOP: .WORD QDRV1 :DRIVE O STOP ADDRESS & DRIVE 1 START ADDRESS 
8471 O36424 036502 WORD QDRVe :STOP DRIVE 1--START DRIVE 2 
8472 036426 036522 WORD QDRV3 ;STOP DRIVE 2--START DRIVE 3 
8473 036430 036542 WORD QDRV4 ;STOP DRIVE 3--START DRIVE 4 
8474 O3643e 036562 WORD QDRVS ;STOP DRIVE 4--START DRIVE S 
8475 038434 036602 WORD QDRV6 ;STOP DRIVE S--START DRIVE 6 
8476 036436 0366 WORD QDRV7 ; DRIVE 6--STA IVE 7 
eee O3644O 036642 WORD QTERM ;STOP DRIVE 7 
ate ;DRIVE REQUEST QUEUES 
8481 O36442 000010 QDRVO: .BLKW 10 
8482 036462 000010 QDRV1: .BLKW 10 
8483 036 000010 QORV2: <BLKW 10 
8484 036 000019 QDRV3: .BLKW 10 
8485 036542 000010 QDRV4: .BLKW 10 
8486 036562 000010 QDRVS: .BLKW 10 
8487 036602 000010 QDRV6: .BLKW 10 
8488 000010 QDRV7: .BLKW 10 
aes 036642 QTERM= 
oia :#ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
8493 3 *CALL 
edad + % JSR PC, CLRQUE 
8496 036642 004037 037104 CLRQUE: JSR RO, SAVR1S ;SAVE R1-RS 
8497 O36646 O12702 036350 MOV #OCNT, Re ;ZERO THE QUEUE COUNTS 
B49E 036652 005022 CLR (R2)+ ;DRIVES 08 1 
68499 036654 9d0502e CLR (Re)+ ;sDRIVES 2 & 3 
8500 036656 005022 CLR (Re)+ pa E 48S 
8501 005022 CLR nee ;DRI VES 6 & 7 
8502 O3666e 012703 000010 MOV ;MOVE THE STARTING 
8503 036666 012701 036420 MOV BStaRT Ri "ADDRESS OF THE QUEUE INTO 
8504 036672 Olelee 1S: MOV R1)+, (Re)+ THE QUEUE INPUT POINTER 
8505 036674 005303 DEC a 
e506 13 BNE 1$ 
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MuV at ;MOVE THE STARTING AODRESE 
MOV eee ART Rl !OF THE QUEUE Nr THE 
28: MOV CRl)e, (A2)4 :QUEUE OUTPUT POINTER 
DEC R3 
BNE 2 
ISR R5,GETRIS :RESTORE R1-85 
Ts pe 
;*EMPTY THE QUEUE SPECIFIED SY 1 
S#CALL 
4% MOV DRVNUM,R! :DRIVE NUMBER TC RI 
:* ISR PC EMPTY 
EMPTYQ: cLRE GENT(RL) sCLEAR NUMBER OF ITEMS IN QUEL 
HOV GENPT(RL) ,GOUTET(RL) sSET OUTPUT QUEUE POINTERSINPUT POINTER 
RTS pC 
:#ROLTINE TO PUT A REQUEST IN QUEUE 
2 #CALL 
# MOV e#DRVNUM, Rl ; DRIVE ree 
te MOV ri :ADDRESS OF PARAMETER BLOCK 
* # JSR RO, ORVGUE :GO PUT REQUEST IN QUEUE 
:# RETURN ‘RETURN HERE IF QUEUE IS FUL 
° *RETURN HERE IF REGUEST 15 si QUELE 


ORVOUE: CMPB #10, QCNT(R1) 31S QUEUE FULL? 


BEG ;BR IF YES-TAKE RETURN 
pire ais INCREMENT GUEUE COUNT 

MOV Re, tose ik ;PUT wuts REQUEST IN SUSE 
ROD 82, QINP UPDATE THE QUEUE POINTER 


CMP STAPT CRI). RA ropchty ee i LIME TO RESET THE POINTER 
SNE 1$ “BRANCH IF NO 
Hoy QSTART(R1),QINPT(R1) ;YES--RESET POINTER 


18: SR 
i Tar (RO)+ ; TAKE RETURN 2 
2s: RTS RO RETURN TO USER 
;*ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 
* #CALL 
t+ MOV #DRVNUM,R1 ;DRIVE NUMBER TO R 
3% JSR PC, GETREQ 360 GET THE REQUEST 
+i RETURN :Re=" ADDRESS OF THE REQUEST 
Le R= O IF NO REQUEST IN QUEUE 
GETREQ: CLR Fa 
TSTB QOCNT(R1) 8 THERE ANY REQUEST IN QUEUE? 
» & & vee 
f a SPOUTPT CR) Re salen “DPB” POINTER FOR THIS ORIVE 


re ne ee ne en ee ee: 





te ee ee ee 
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6563 o3s7o4o 000207 28: RIS PC RETURN TO USER 
8565 s#ROUTINE TO "POP" THE REQUEST FROM GUEUE 
ES cm 
8568 :# MOV aDRVNUM, Rl :ORIVE NUMBER 
8568 :* ISR PC, POPOUE sCALL 10 REMGVE™ REau EST 
e570 re RETURN :RESADDRESS OF DPB REMIVED 
B572 O27042 10536: 936250 POPQUE: DECB QeNT (RL) sDECREMENT QUEUE COUNT 
8573 037046 006301 ASL 
8574 037050 917102 936400 MOV agoureT at, Re eT THe reef PO QINT TER 
8575, 037054 62761 O00] o3645C ADD OUTPT( QUELIE 
8576 O37; Q26161 O35900 O36422 CMP SeUTPT URL) At opie TE Me 19 ef tie SB OINTER? 
Seiad 1003 BNE 1$ NO- H TO EX 
8S78 2 SIG1El O36420 036400 MOV GSTART(RL), gouref tei) sYES--RESET THE POINTER 
8579 037100 006201 1S: ASR Ri 
B580 037102 s0d207 RTS PC RETURN TO USER 
sce ; ROUTINES TO SAVE RO-RS AND RI1-RS 
Eee See CALL: SAVROS 
g595 *# JSR RO, SAVROS 
ESSE i RETURN sRO-RS IS ON THE STACK 
E55 | HSCALL: SAVRIS 
ase # 5k RO, SAVRIS 
BS30 is RETURN sRI-RS IS ON THE STACK 
ess : UPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 
S594 :#+12 RO 
8595 #410 RI 
cist 3 ¥+ 
e5$7 3 e+: R3 
gs98 3#*02 8 =6RY 
p=g¢ #TOP RS 
Beer 037104 SAVROS: s SAVE RO BY THE JSR INST. 
B602 937104 O10146 SAVRIS: MOV R1,-(SP) ;SAVE R 
8603 037106 N10246 MOV Re, -(5P) : SAVE Re 
8604 037110 O10346 MOV R3,-(5P) : SAVE R; 
8605 Os7lle O10446 MOV Ra’ (SP) ‘SAVE RY 
6606 037114 O10s4e MOV RS’ =(SP) SAVE RS 
8607 O37116 OL6646 cooole MOV 12tsP),-(SP) GET RO 
Bede 037122 o0d200 RTS RO 
ebi0 ; #ROUTINES TO RESTORE RO-RS AND RI-RS 
8612 + SCALL: GETROS 
8613 + JSR RO, GETROS 
eis is RETURN ;RO-RS HAVE BEEN RESTORED 
G16 H CALL: GETRIS 
8617 tt JSR RO,GETRIS 
e618 # RETURN sR1-RS HAVE BEEN RESTORED 
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8620 O37124 O11666 00014 SETRIS: MOV (SP), 14(SP) sPOSITION RO 
1 037130 005726 GETROS: TST (5P)$ POP RO OF THE JSR OFF OF THE STACK 
037132 612605 MOV (SP)4,R5 PRECTOR E RS 
8623 O37134 012604 MOV (§P)4"RG RESTORE RY 
8624 037136 012603 MOV (SP)+°R3 ‘RESTORE R3 
8625 037140 912602 MOV (5P)4!Re “RESTORE Re 
8656 O37142 012601 MOV (5P)+°RI *RESTORE RI 
see 637144 o00209 RTS Se ‘RESTORE RO 
86293 33 FEPFELPPSELSFISEEERERSES LSS EFSL PSA FS EFSEPIRS SEP ESSE FE LEF SFE SLES ES SY 
se .SBTTL DATA, CONTROL, & STATUS BLOCKS 
8&33 es SREREFSRELEFERSLESESLEAASELELELESELAEFEELLELAESSELE LE SSSLESLESSE 
Brae PS ;BLOCK LOCATION EQUATE STATEMENTS 
He 900001 SFMT = 1 sFMT,HCI,ECI OR OFFSET CODE 
8638 900002 SCOMND = SFNT+1 OPERATION CODE 
8639 905093 $PSEL = SCOMND+1 :PORT SELECT & BITS Alb, AL7 
8640 peo904 $WROM == SPSEL+1 *WORD COUNT (2°S COMP) 
| B64) o9000e : SWROM+2 ‘BUFFER ADDR OR REGISTER TABLE POINTER 
ge43 060910 $SEC Oss SBUF+2 ?SECTOR ADDRESS OR 1ST REG ADDR 
| 8843 000011 STRK = SSEC+1 : ADDRESS OF LAST RE 
BS44 p00912 SCYL = STRK+1 *CYLINDER ADDR 
[ee Bee fies : Bees Sata not ey oettew 
Beas 900020 = SRE te Lo WORD UR OUT (Net 2°S COMP) 
| BEB op0022 SRETRY = SWROL+2 ‘LOWER BYTE = RETRY COUNT, UPPER BYTE = RETRY LintT 
| 8849 900024 SMASK = SRETRY+2 *ERROR CHECK MASK 
| 8650 oo0ds6 $SSEC = SMASK+2 :SECTOR SIZE FOR CURRENT OPERATION 
| 8851 900930 SCODE = SSSEC+2 ; PRESENT COMMAND SELECTION CODE 
| Bese 000031 SPACK = SCODE+1 :WRITE DATA PACK INDICATOR 
, 8653 000032 VO = SPACK+1 *PREVIOUS COMMAND SELECTION CODE 
| 8654 000934 SPATTC = SPREVO+2 *PATTERN CODE 
| 8655 000036 SPREVA = SPATTC+e * PREVIOUS ADDRESS - TRACK, SECTOR, CYLINDER 
BE56 po0042 = SPREVA+H “OPERATION COUNT 
| 8657 oo0o4s SPOSIT = SOPERC+4 FEE COUNT 
| pese - oo00s2 STRANS = SPOSIT+4 TOTAL BITS XFERED CO COUNT (R & W) 
| ps9 900056 SREAD = STRANS+4 :TOTAL BITS READ 
BEE0 po0062 STOTAL = +4 “TOTAL ERRORS (ALL OYPES) COUNT 
| BEEL 000064 SSOFT = STOTAL+2 :*SOFT’ ERROR COUNT 
| BEBE OO006 = +2 >*HARD’ ERROR COUNT 
BEES 000070 $SkKI_ = SHARD+2 :’SKI’ OR ’OCYL’ ERROR COUN 
| BS54 000972 SMI = $SKI+2 >PROG DETECTED MISPOSTTIONING ERROR § COUNT 
, BEES 000074 SPASSC = SMISPO+2 *PASS COUNTER 
| BGEE 999076 SRSAV. = SC+2 ‘STORE THE RANDOM NUMBERS HERE 
| §6E7 102 SNC = v+4 :NEXT 
| BEEB 000103 SNPATC = SNCODE+1 NEXT SPER 
| BEES 000104 SNSEC = SNPATC+1 aNEXT SECT SECTOR 
| 670 000105 SNT = SNSEC+1 
| BE7I 000106 SNCYL = SNTRK+1 ;NEXT CYLINDER 
| $672 000110 § = SNCYL+2 NEXT BUFFE 
| 8673 009112 SNEXT <= SNWROL +2 : PARAMETER SPEe ION INDICATOR 
| 2574 000114 SBDSEC = SNEXT+2 *BAD SECTOR STORAGE TABLE 








r 


ES 


tatatigtig 


8687 


Bap PERee 


sdnascnes 


3B 
SSeS sssenorae 


Sssssssssss 


bs hn he be 0 he ee 
WOnNMU£W-O 


s 


308 


dal total Z 
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goois4 SDRVID 
Ois4 SRHCS 1 
O00166 SRHUIC 
17 SRHBA 

17, RHOA 
000174 RHCS2 
900176 SRHOS! 
0200 SRHERI 
conece ERAS 
SRHLA 

000206 $RHOB 
900210 SRHMR 
050212 SRHOT 
000214 SRHSN 
000216 SRHOF 
900220 SRHCA 
g00222 SRHCC 
SRHER2 

SRHERS 

000230 SRHECI 
000232 SRHECE 
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SBOSEC+40 ;RPO4 Ri 


EGISTER STORAGE 
ae ad ;RPO4 REGISTE 


S 
STER STORAGE 


SRHER3+2 
SRHEC1+2 


;BLOCK FOR DRIVE 0 


coo BLKO: 





-BYTE 


oOo 


;ORIVE NUMSER 


oOo00000 


. +150 


OOOOOOOOOKOOOOOK0O000K00000 


r 


tn a i rn ee ee 
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DERPNS.P12 


saudnNsE sea! 
: 


Se 


037320 
03732 
037324 
037326 
037330 
037332 
937334 
8761 
eres Oa7aue 
8763 037344 
8764 037346 
eve Oa/aee 
76 37356 
e769 037360 
8770 037362 
8771 037364 
8773 
a7rs Ga7a7e 
8775 037374 
8776 037376 
8777 037400 
8778 037402 
8779 
8780 
8781 
ye Eee 
eves Dare 
8786 037414 


a ee ae eee 


DATA, CONTROL, 8 STATUS BLOCKS 


OOOO O OOOOH BWH HHO HOH HH NHOO OOO WHWOOOOOODBKHVOOKOO0020000 


;BLOCK FOR DRIVE 1 
000 BLK1: .BYT 
«WO 


3 





eee 


;DRIVE NUMBER 
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DERPNS.P1l 
8787 037416 
g7e8 037420 
9789 
ea) tars 
792 
ga rs 
Bae Bapy 
BS 
8798 
8799 O37445 
Sent aes 
Beus parued 
8803 037456 
SSOE Cries = 
S808 ra 
g809 037472 
8810 037474 
8811 037476 
8812 037500 
8813 037502 
8814 037504 
et bet 
8817 1 
8818 037514 
8819 037516 
Best pavese 
037524 
Es is 
B26 «(037534 
037536 
ese ee 
Beat paveue 
oea5 a eee 
BE34 037554 
Bese baveep 
8837 027562 
Be39 DS7ebe 
8840 037570 
B41 037572 
Be42 037574 
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OCKS 


= 
oO 
x» 
oO 


WORD 
-WORD .+150 


= 
COOH OOO OHOHH OHHH HH HOH OHNHHON OHH DN HOWWOO OOO OOOO OKODOOKOOKOOD00000 








8843 


== 
oo 
P*] 
OOOO OOOOOKOKO0OO00000 





;BLOCK FOR DRIVE 2 


ESERERERARALA Giana cca uh Liicaiee es base 


037642 000 BLKe: .BYTE 2,0 ;ORIVE NUMBER 
037644 -WORD @Q 
037546 -WORD 0 
037650 -WORD OQ 
037652 -WORD OQ 
037654 -WORD 0 
037656 -WORD +150 
937660 -WORD 0 
037662 -WORD O 
037664 -WORD OQ 
037666 -WORD O 
037670 -WORD OQ 
03767e -WORD Q 
037674 . WORD QO 
037676 -.-WORD OQ 
037700 -WORD OQ 
037702 -WORD O 
8881 037704 -WORD O 
8882 037706 -WORD 0 
8883 037710 -WORD OQ 
8884 037712 -WORD 0 
B88S 037714 -WORD 0 
a 037716 -WORD OQ 
037720 -WORD OQ 
037722 -WORD OQ 
Ba ie “HOR 
WORD OQ 
8891 037730 rin 5 
peas 037734 “HOD 0 
8894 037736 -WORD OQ 
8895 037740 -WORD 0 
8896 037742 -WORD 0 
8897 037744 -WORD OQ 
6898 037746 -WORD O 
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DERPNS.P DATA, CONTROL, & STAT 
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US BLOCKS 


pe atest neat ecttack 
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;BLOCK FOR DRIVE 3 


000 BLK3: ‘Ar ;ORIVE NUMBER 


EEESEREED LE 
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Ooo000UW) 


040264 “WORD +150 


mow 
RRS 
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8968 
6970 
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OOOO OOOH OOOH HHI HHHA OOO OO HH NHH HWW OOOWO OOOO DOOKSODO OOOO DOOKDDO00000 
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DERPNS.P11 DATA, CONTROL, & STATUS BLOCKS 





9011 O4030e 000000 -WORD 0Q 
9012 40304 000000 «WORD 9 
9013 040306 000000 WORD 9Q 
$014 040319 000000 WORD OQ 
9015 O402le ted WORD 9Q 
9016 pibsie WORD 
9017 16 Bopnod WORD OQ 
9018 040320 000 ORD 0 
$019 040322 WORD OQ 
9020 040324 900000 WORD Q 
9021 040326 000000 WORD QO 
S022 040330 900000 WORD 0 
9023 O4033e 000000 WORD OQ 
ese 040334 00 WORD O 
ooss ;BLOCK FOR ORIVE 4 
3028 0 000 BLKY: .BYTE ,0 ;ORIVE NUMBER 
9029 640340 000000 - WORD 
9030 0000 WORD 
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oO 

za 

oO 
OoOoo0oo0 + 


“WORD .+150 





OOOOO OOOO OOOOH O OOOO OKOOOOO0O000000 
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DERPNS. DATA, CONTROL, § STATUS BLOCKS 
g0s7 o4o4s4 00000 WORD 
oper Supdee Boob "WORD 9 
9069 o4o460 00000 "WORD 0 
8070 g4o¥G2 ooog00 “WORD 0 
8071 O4O4EY O00000 "WORD «8 
@o72 g4O4es 009000 "HORD 
§o73 o4o470 900000 "WORD 0 
go74a g4o472 O00 "WORD 0 
3075 o4o474 oo0000 "WORD 0 

40476 dO0000 "WORD 0 

9077 04 900000 "WORD 0 
8078 o40s02 900000 "WORD 0 
8076 o40S04 oo0000 "WORD 0 
3 0506 900000 "WORD 0 
8081 040510 00000 "WORD 0 
40512 00000 "WORD 0 
8083 o40514 "WORD 0 
984 040516 O00000 "WORD 0 
pss 40520 00000 "WORD 0 
40522 000000 "WORD 0 
8087 o40524 00000 "WORD 0 
o40S26 900000 "WORD 0 
8089 040530 000000. "WORD 0 
o00000 "WORD 0 

8091 049534 o00000 "WORD 0 
9o92 940536 000000 "WORD 0 
8063 o40s40 oo0000 "WORD 0 
8094 o4ps42 oog000 WORD O 
$095 940544 00000 WORD 0 
90% O40546 900000 WORD 0 
8097 o40550 o90000 WORD 0 
gn98 g40ss2 000000 WORD 0 
§099 40554 00000 “WORD 0 
8190 o40ss— 00000 "WORD 0 
$101 40560 900000 "WORD 0 
$102 o40S62 000003 WORD 0 
9103 O40S64 OOC000 WORD O 

| 9104 O40566 00000 WORD 9 
3105 40570 o00000 WORD 0 

| $105 o4057e 00000 WORD 0 

| $108 ;BLOCK FOR DRIVE 5 

| §110 o40S74 00S _—oon BLKS: .BYTE 5,0 sDRIVE NUMBER 
$111 40876 oD0000 "WORD «OO 

| 9112 O40600 og0000 WORD 0 

| 9113 O40602 cCoDg00 WORD 0 

| 9114 40609 OoD000 "WORD «0 

| @i1s 40808 o00000 "WORD 0 

| @116 040610 O40760 "WORD ©. +150 

| 9117 o40612 o00000 "WoRD «0 

| $118 o40619 d00000 WORD O 

' 9119 O4De16 oo0000 WORD 0 

| 9130 oo0000 WORD 0 

| 9121 o4De22 00000 WORD 0 

| Slee e0000 WORD 0 
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US BLOCKS 
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Se i 


11832 :03010:0 0:9 .0.0.0,0,0,0 0.0.0.0, 
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000000 
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Go0000 
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;BLOCK FOR DRIVE 6 
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Rnenueneeee Spree ppeeeeRpeRRpegseeRee & regeernREResseees 
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an Se Rr ee a ee a oe ee ee Se ee eS a ek eh ea ete eee 4A Se 8 se 68 Ss A a REE Ke Ske ee roche set: ~ 
oa 
Oo 
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CONTROL, aTUS 


oococs 
098859 








8 ST 


177774 GENDPG: .WORD 0,0,-4,CYLDER 


o41S46 


000990 
O00009 
000 
909 


OS0000 
009900 
000000 
000009 
000000 
000000 
000000 
000009 
occ0oo 
ooooc0 
000000 
000000 
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000000 
000000 
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== 
aQQo 
iP i) 
oonooo00oo 
> 


;GENERAL PURPOSE DPB - USED BY "READHD’, "RECALT’, ‘OFFSET’ ,&°RTNCTR’ 
w» WORD 0,0,GENREG,O 


GENREG: .B2KW 24 ;REGISTER STORAGE IF ERROR 
.SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


5p ARRAS REELELE SALA SELES RELLELLAAA LEAL ESELELA SELLA FLEAS ERELL EELS 


ORDERG: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF DRIVES PERFORMING COMMANDS 
ASNLST: .BYTE 0,0,0,0,0,0,0,0 ;-1 IS ASSIGNED UNIT 
DUNIT: .WORD 0,0,0,0,0,0,0,0,0 sADDRESSES OF UNIT TO BE DEASSIGNED 
NEWUNT: .WORD 0,0,0,0,0,0,9,0,0 sADDRESSES OF NEWLY ASSIGNED UNITS 
AVAIL: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF UNITS WAITING FOR PARAMETERS 
WAIT: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF UNITS WAITING FOR BUFFERS 
PARG: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF UNITS WAITING FOR PARAMETERS 
BUFTBL: “i : ; BUFFER ALLOCATION TABLE ENTRY COUNT 

s 0:9 

“WORD 0,0 

“WORD 2:3 

“WORD 070 

WORD 0,0 





eee ee ee 


E16 
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i T ANTS 





DERPNS.P1 ABLES, CONS , BNO VARIAELE LOCATIONS 
9403 90900 WO 0 
o454 eee “HORS ia 
9455 900000 ‘WORD 9.0 
eee ie oe 

WO ‘ 
| upg ORD’ 
$10 “HORD is 

sis toed 88 
941 WORD 0:0 
6414 WORD 9,0 
ae nf es 
9417 942124 BLKADR: sADDRESS OF EACH UNIT BLOCK START 
aig oyeled 937146 -HORD gLKo 
o4 Bisi33 paras [WORD  BLKe 
9451 D4ei32 040100 “WORD BLK3 
S452 O42134 040336 “WORD K4 
9453 042136 040574 WORD  BLKS 
9424 642140 041032 WORD BLKS 
S455 O4e]42 04127 wo BLK? 
| Ga3g 
| 
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DERPNB.P TABLES, CONSTANTS, SND VARIABLE LOCATIONS 





xe a COMTBL: .BYTE  WCKD WRITE CHECK DAT 
“BYTE  WCKHO WRITE CHECK READER AND DATA : 
at 161 -BYTE WRTDAT SURITE DATA we 
elu? sige “BYTE WRTHD {WRITE HEADER AND DATA 
au3t 2150 47] -BYT RODAT sREAD DATA 
aie ON21S1 = 173 “BYTE  ROHD ;READ HEADER AND DATA 
34 42152 041527 O42113 O20040 OPMNEM: .ASCIZ /WCKD / ;WRITE CHECK DATA 
9435 042160 0 
S432 Ousiee Guise? OW4LL3 O20104 ASCIZ /WCKHD 7 ;WRITE CHECK HEADER & DATA 
9437 042170 00040 
e138 Ouel7e Osile? Ovele4 052101 ASCIZ /WRTDAT / ;WRITE DATA 
Sv30 Ngee OS1127 44124 020104 ASCIZ /WRTHD 7 ;WRITE HEADER & DATA 
aie Oieele Oelze O4OSO4 020124 .ASCIZ /RODAT / ;READ DATA 
Suva puseee Oueiee OM2110 O20040 .ASCIZ /ROHD 7 ;READ HEADER & DATA 
mae scrgete 
9447 C4232 © 000 OFFCOD: .BYTE 0 ;OFFSET CODE TABLE 
gu48 42233 020 “BYTE 20 ;+400 U INCHES 
S49 042234 89-200 BYTE 220 “400 U INCHES 
S450 042235 040 BYTE 40 ;4800 U INCHES 
$451 042236 240 BYTE 240 3-809 U S 
S452 042237 060 "BYTE 60 :+1200 U INCHES 
$453 260 000 “BYTE 260,0 :=1200 U INCHES, TERMINATOR 
SHES ONz=Ne 422E0 OFMTBL: .WORD  OFMSGO ;1ST OFFSET MESSAGE 
SuSE O4eo44 042313 “WORD OFMSG1 SOND OFFSET MESSAGE 
S457 O42e%5 042347 “WORD  OFMS :3R0 OFF 
a158 O4ees) GNeHOS “WORD  OFMSG3 :4TH OFFSET MESSAGE 
| 9459 O42252 042437 WORD  OFMSGY {STH OFFSET MESSAGE 
| $460 O42254 042473 “WORD  OFMSGS :6TH OFFSET MESSAGE 
$461 042256 042530 “WORD OFMSGE ;7TH OFFSET MESSAGE 
SHES 04 043101 04 20122 OFMSGO: .ASCIZ /AFTER RETRY WITHOUT OFFSET/ 
S464 04 051124 020131 
S465 042274 Dialed Oaee]? 
| 9466 42302 020124 OH3117 051506 
S467 042310 052105 
S468 042313 101 O20124 O43117 OFMSGI: .ASCIZ /AT OFFSET +400 MICRO-INCHES/ 
S469 O4e320 051506 Ose10S Oesi¥0 
| Gari Buses Geriea DSesi? ON7iL 
| ge Stewe OW 1505 
9473 42347 — 101 O20le4 043117 OFMSG2: .ASCIZ /AT OFFSET -400 MICRO-INCHES/ 
| S474 042354 051506 052105 O26440 
| SH ONe3be 030064 20060 o4NE1S 
| G7 O4e370 51103 17 O47111 
| 9477 042376 O44i 1505 — 000 
| $478 042403 — 10 124 043117 OFMSG3: .ASCIZ /AT OFFSET +809 MICRO-INCHES/ 
| G73 OHeHIO 051506 Osel0s Oe5N0 
Sus1 ousued Delia GBesi? Odili 
| S82 OHe4se 044103 051505 000 
| 
} 










DeRPNS. 
S483 


BeCnAeGRee 


AARARARARS 
WONnNMUIS Wwre-O 


it 


SESSRTEN 


SH Baes, RHA RD sbiRle oobi PE 











101 O201e4 aii OFMSGS: .ASCIZ /AT OFFSET +1200 MICRO-INCHES/ 





000123 
0Se 047440 paatee OFMSGE: .ASCIZ /AT OFFSET -1200 MICRO-INCHES/ 








042566 EVEN 
;ERROR MESSAGE LINE 2 POINTER TABLE 
o46SS2 DT14.T: .WORD OT14.0 ;0T14 ADDRESSES 
046574 -WORD DT14.1 
046616 WORD OT14.2 
046640 ORD O714.3 
WORD OT14.4 
046704 WORD O7T14.5 
046726 WORD O7T14.6 
046750 WORD ODT14.7 
772 DTiS.T: .WORD O715.0 ;DT1S ADDRESSES 
047014 «WORD OT15.1 
7036 WORD 0715.2 
7060 WORD OT15.3 
047102 WORD OT15.4 
047124 WORD O7T15.5 
047146 WORD OT15.6 
047170 WORD OT1S.7 
047212 OT16.T: .WORD ODT16.0 ;0T16 ADDRESSES 
047226 -WORD OT16.1 
047242 WORD OT16.2 
047256 DTi6.3 
04727e DT16.4 
047306 WORD O7T16.5 
047322 WORD OT16.6 
047336 0T16.7 
35 AREER AR SEE RARE EEE EAE AEE SEE ER HEE AEE ERIE REE ER REE EER RR EER 
-SBTTL DATA PATTERNS 
55 AR ARSE gE SEE SE SE ESE AR SESE RHE AEE RAE AE SEE EAE HE RIESE EEE REE RRR ERE 
000000 STNDAT: .WORD OQ ;STANDARD DATA PATTERN POINTER TABLE 
O4e75e2 «WORD DATA 
043012 -WORD DATA1+4O 
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SEAPRE Pit DATA PATTERNS ; = 


25 fee Gat Hee paratg 
4] pastes By3i “WOR BaTatsed 

aus bustes ouaces ORD  patats300 

44 pistes 3575 “WORD eer 

9545 0426 3352 "WORD DATAL+400 

es Ren Bae toe Berets 
aug Biers Buzeis HRD BaTALse4 

9549 04 3552 “WORD  DATAL+E00 
8550 O42702 O43612 WORD DATAL+640 

$51 a bbe WORD DATA1+700 

l WORD AG s ZEROES 

9553 042710 043614 ORD DATAL+642 : ONES 
gee 042712 900000 DATAO: .WORD oO ;DUMMY DATA PATTERN 
9555 042714 00000 ‘WORD 9 
9557 Ove? 16 000900 “WORD ; 
a223 B4S752 DODDDD WORD OO 
8560 O42724 000000 “WORD 0 
9551 042726 O00000 “WORD 0 
8562 042730 of0000 "WORD «0 
8563 042732 000000 “WORD O 
9564 042734 000000 "WORD =O 
8565 042736 00000 “WORD O 
9566 pye7ag ooo000 ‘WORD «0 
9557 ner poco “WORD 0 
968 O42744 000000 WORD 0 

9569 04 000000 WORD O 
3570 O42 000000 ORD O 
ge93 042752 000001 DATAL: .WORD OO00001 ;STANDARD PATTERN 1 
9573 042754 000003 WORD o00003 
9574 042756 000097 WORD 000007 
9575 042760 000017 WORD 000017 

8576 O42762 900037 WORD 000037 

9577 042764 000077 WORD 000077 
ae99 7g BuSeSB DODaT WORD ne 
dee Buer7e “WORD 0077? 

9581 042774 001777 "WORD 001777 

9582 042776 003777 “WORD 003777 

9583 043000 007777 “WORD 007777 
$584 043002 017777 “WORD 017777 

Babe ne “ORD Be 9995 

Ss ats tere te PtH 

9589 043012 177776 RD 177776 ;STANDARD PATTERN 2 
9590 043014 177774 “WORD 177774 

9591 043016 1 HORD 17777 

9592 in ‘ 5 WO 177760 

9593 Bas0ee 177740 WORD 177740 

9594 943024 177700 WORD 177700 
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of oa. ff ob ob 
000 IOUT .£ WIrue-O 
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177600 
177400 


000000 
010421 
02 


cS2Se5 


;STANDARD PATTERN 3 


;STANDARD PATTERN 4 


;STANDARD PATTERN S 





DATA PATTERNS 
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DERPNS.P1l 
9651 043200 125252 -HORD  es252 
S82 O30 “WORD OS2525 
3653 OHse0Y lebebe “WORD 125252 
ee Reh Ges ae 
9657 043212 907417 .WORD Q07417 ;STANDARD PATTERN 6 
S668 043019 007417 “WORD - OO7417 
8659 043016 O07417 “WORD 007417 
170360 "WORD 170360 
8661 043222 170360 “WORD 170360 
1703 "WORD 170360 
3206 007417 “WORD G07417 
664 943030 007417 "WORD 807417 
S65 O4sese 170360 "WORD 170360 
Se6e Ge 170360 "WORD 170360 
E67 04 007417 "WORD 0074 
ee pussue QOMnie WeRD  Gavai> 
aeo8 ba 170360 WORD 170360 
9671 04324_ 007417 WORD 007417 
S72 O¥Se80 170380 WORD 
S674 Q43252 D26455 .WORD 026455 STANDARD PATTERN 7 
9675 043254 O>6455 "WORD e645 
9676 043255 O>6455 WORD  O2e4e5 
9677 043260 151322 151322 
8678 43262 151322 WORD 151302 
| 9629 O438b4 1813e2 WORD 181302 
O43266 O>6455 WORD  O264ss 
| 9681 43270 WORD  O26456 
8682 043272 151322 WORD 151322 
9685 043274 151322 WORD 181322 
684 043276 026455 
685 043300 151322 151322 
@68— 043302 O26455 WORD 
| 687 43304 151322 WORD 
S688 043306 O26uss WORD  O26455 
| 83 ONS310 1Siee WORD 322 
| 
86 2 1 WO sSTANDARD PATTERN 8 
eae pissis 133533 HRB 188888 
9693 OH3316 1655 "WORD 165555 
| 9694 043320 133433 WORD 133333 
| 9695 43322 165555 WORD 185555 
| 9696 043304 133333 WORD 133333 
| 9697 Q43a56 165555 WORD 165555 
9698 043330 133333 WORD 133333 
| 043332 165555 WORD 185555 
| 6700 043334 133333 "WORD 133333 
| @701 043336 165555 "WORD 185555 
| 702 (043340 1233333 "WORD 133333 
03 O4a342 165555 "WORD 165555 
| 8704 OuB344 133333 “WORD 133333 
9795 043346 165555 "WORD 165555 
8706 043350 132333 "WORD 133333 
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9708 043352 000001 -WORD Q00001 ;STANDARD PATTERN 9 
: 000002 


9724 
9725 043412 177776 - WORD 1770ee ;STANDARD PATTERN 10 


9742 O0434S2 172666 -WORD 172666 ;STANDARD PATTERN 11 
3743 O434S4 5 


| 
| 043506 172666 ‘ 
a5 043510 155555 “WORD 155555 
9759 043512 077777 .WORD 077777 ;STANDARD PATTERN 12 
$760 043514 137777 “WORD 137777 
9761 043516 157777 “WORD 157777 
| 97 3520 167777 “WORD 167777 
| 
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DATA PATTERNS 
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;STANDARD PATTERN 14 


;STANDARD PATTERN 15 
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DERPNS.P1l DATA PATTERNS 
9829 043674 000000 -WORD 000000 
9820 043676 000000 -WORD 000000 
9821 043700 000000 WORD 900000 
9822 043702 000000 WORD 00000 
9823 000000 -WORD 000000 
9824 043706 000000 -WORD 000000 
ease 043710 900000 ‘ -WORD 000000 
ese ff RERERREL AAR EEK LEAR ELLE RELRELLERE EERE REERELERREE LEER LLL LE LERE 
rey . -SBTTL PRINTER/TELETYPE MESSAGES 
Fat} fp RERRRRAA EARLE AE RE RRR REE EE ER ELE EERE ELEAF ERLE LE RE RELL ELELERELELRE 
9833 043712 O46111 042514 OYOSO7 EM: -ASCIZ /ILLEGAL RH11 INTERRUPT (SC=0 OR RHAS=0)/ 
9834 043720 020114 O44iee 030461 
9835 043726 O8444O 052116 051105 
9836 045734 OSeSee OSele0 Oe4040 
043742 O41 930075 047440 
9838 043750 O20ie2 O44lee 051501 
Fats 043756 030075 000051 
984i 043762 O4712e5 O54105 O425e0 ENe: -ASCIZ /UNEXPECTED ATTENTION/ 
9842 043770 052103 042105 O40440 
9843 049776 OSele4 047105 044524 
9844 O44004 047117 000 


9845 
9846 044007 O2 047117 OS112e4 EM3: -ASCIZ /CONTROL BUS PARITY ERROR DETECTED BY THE RH11/ 


0 020105 
9853 044060 O44l2e 030461 000 
Lane 103 iat 84 051124 EM4: -ASCIZ /CONTROL BUS PARITY ERROR DETECTED BY THE RPOY/ 


EMS: -ASCIZ /ATTENTION FROM AN OFFLINE UNIT/ 


9871 O44202 O4712eS O47503 O51122 EM1O: .ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 
9872 O44210 041505 040524 046102 
9873 O44216 020105 O40515 051523 
9874 O44e2e4 OSe502e O20le3 040520 
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C-11-DERPN 


Pll 


/HERDER READ ERROR - ’FMT’ BIT DROPPED’ 


-ASCIZ 


oe se 


& 
Q 
7 
= 
wy 
= 
5 
7 
a 
? 
: 
& 
ul 
g 
& 
F 
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-ASCIZ 
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Me 
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Belen 
ia id lather 


2 2 ae 
om a 


SSS CCEISE EEE ETA ETE MTURTERESEEESOEORDERIOSS 


cen ames meme ne eee ne ee te ae ee ee 


BEBS-Ne 8 
a3 as 


/FORMAT ERROR (°FER’ )/ 
HEADER COMPARE (°HCE’) ERROR/ 


-ASCIZ 
ASCIZ 


EM2E : 
EMe7 


ep en 3 


ee ae tee ee | ees ee 


/MISCELLANEOUS DRIVE ERROR/ 


N 
oad 
oO 
w 
a 


if 


_ 





-ASCIZ /OPESATION INCOMPLETE (’OPI’) ERROR/ 


5 


= 
on255 


aeeee 


RBRFABS 


ee g ed ad Cn lem heme am ina Ream) 


GBBG Boboos 


-ASCIZ /DORIVE TIMING (’DTE’) ERROR’ 


EMS2: 


are gas 
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aN 
oe 


0012 
S20 O44S2e O54Se4 ENM33: 


/PARITY ('PAR’) ERROR AFTER OPERATION STARTED/ 


-ASCIZ 


eee eee 


en 
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oO we w 4 x 
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& r=} % x 3 S 
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2440 
p00 
046191 
ce 
o24040 
024447 
1117 
O42524 EN36 


me Ge 
tea gee EEE = 
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ZEGe8 iit oe re ea Wadia rae “ae 


020113 
051105 O47S2e 
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tom Rete Kee Neate Keen Kern Keon Ree Kame Kee Dee Does ee Dee Doe Doe Doe Oe ee ree ee ee ee ee heek Boe toe Kee Kee Dek Dee Keen Doe Kite Doe Dee Dee De Com Dee Dee Coe hee 
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RHER2 RHER3 RHAS/ 


RHER! 


EO1. 


) 27-SEP-76 15:05 PAGE 2le2 
Shoes 
DRV RHOS1 


/PROGRAM DETECTED POSITIONING ERROR/ 


/DEVICE UNSAFE/ 


-ASCIZ /ERROR BIT(S) SET, BUT NO ERROR SIGN@LED BY THE RH1i/ 


-ASCIZ /SEEK INCOMPLETE OR OFF CYLINDER ERROR/ 


-ASCIZ 
-ASCIZ 
-ASCIZ / 


EM44: 
EMSO: 
EMS1: 
DHe: 


041511 EMO: 


(7 
NE 


f 


SE 
oe ata as “bes 


ene 2 


/ 


BAD/ 
RHER1 


DRV REG 90R DATA’ 
ORV REG ADR GOOD 
RHCS2 RHDS) 


/ 
-ASCII /ORV RHCS1 


-ASCIZ / 
ACTIZ 


DHY 
DH14: 


‘ 
Cm a a 5 oe 
ica Ee es 


eiitis HEE — a 
ee 


Set Mee. Rout Reh di Ment es Neen Reel Ren te ee Ree Re Ree Ree Den oe ee ee ee ee ee oe eee ee ae ree ee oe er eee ee re ee ee re ee ee ee ee ee ee ee ee ee ee De De Don tee ee Oot hoe Roe) 
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OO43 O456S6 000116 
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re 





MAINOEC-11-DERPN-B n MACYAL.E7 (798) 87-SEP-76 15:05 PAGE 213 


MAINDEC 
10099 046272 
10100 046300 
tte 1 
10103 Owes14 
1010s OHess0 
1810e Ove 
iM 
10108 O46341 
10109 O46346 
10110 046354 
1011 
inti 
1011 
10114 O464O4 
IONE oMeNie 
iDli? 24 
19118 32 
10119 
inieo O46440 
101 3 OY6446 
10iee O46454 
10123 O46462 
10124 O46470 
1012S O46476 
ins O46S504 
101 
10128 
10129 
10130 046512 
itish O46Se0 
10132 046526 
10133 
10134 046530 
10135 046536 
até, 
10137 046540 
10138 O46546 
ree 
10140 46552 
as 046560 
10143 Duero 
5 
046615 
046640 
O46546 
046650 


042510 


= 
oO 
cd 


aS 


aa 


om 


f 
fu 
2 ee 
Go Bees festeeees 
ee 


001256 
is 
ee 
001256 
035726 
037332 
037346 


000000 
037342 
Ge Bog 087376 
037600 


cee 


a ee ee ee ewe 


030522 020040 
10 Q31le2 


j 
oO 
zs 
& 


e 
a 
a: 
r 





: 
E 


-ASCIZ 


DHIS5: 


-ASCIT 


-ASCIZ 


DHIE: 


DTe: 


DT3: 
DT4: 


DT14.0: . 
OT14.1: . 
OT14.2: . 


OT14.3: . 


BEE55555 58 83 


-ASCIZ 


/RHER2 RHERS RHECL RHEC27<15)< 12, 
/RHWC RHBA RHDR 8 RHAS ~~ HLA / 


/RHDB RHI: RHDT/< 15) < 12) 


/RHSN RHOF RHCA 8 RHCC 8 = -STATUS/<15><« 12) 


DRIVE , RPERRS , RPERRS+2, RPERRS+4, RPERRS+6, ATTN, 0 


DRIVE, RD. ADR, RD.WRD,O 
DRIVE ,WRT.AD,WRT.WD, RD.WRD,O 


BLKO+SRHCS1 , BLKO+SAnCS2, BLKO+SRHDS1 , BLKO+SRHER] 
BLKO+SRHER2, BLKO+SRHER3, BLKO+SRHEC! , BLKO+SRHEC2 , 0 
BLK1+$RHCS1, BLK1+SRHCS2, BLK1+S$RHDS! , BLK1+SRHER1 
BLK1+SRHER2, BLK1+SRHERS, BLK1+SRHEC! , BLK1+SRHEC2, 0 
BLK2+SRHCS1 , BLK2+SRHCS2, BLK2+S$RHDS1 , BLK2+SRHER] 
CLK2+SRHER2, BLK2+SRHERS, BLK2+SRHEC1 , BLK2+$RHEC2, 0 
BLK3+SRHCS1 , BLK3+SRHCS2, BLK3+SRHDS1 , BLK3+SRHER1 
BLK3+SRHER2, BLK3+$RHERS, BLK3+S$RHEC! , BLK3+SRHEC2, 0 















1015S O4665S6 040332 
046662 O040Se2 





OOOO OOOO00I000000 


RAR SSIS SSS sissies SS SASS 
BRBSRRLES LSSSIRRIGR=VBsasNaadzanth-sSSCFARLSHSZ 


OOOOOCOOOOOOO0O000000 


_ 
iv 
- 
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Soe 
222 
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ie 
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Bae 


aa GHe Po Bae Bean een Bae Fae Bat a fan Hn WB A ns et fo he Bt Ft fee he FP Be 2 hs 2 he Bt bt ho ft Be Pm hn 8 Pt ba be p= fo hb Bs hs Bh hw ho pe 
Qo000 





ty 
= 
Oo 





os 


or: 


2 2 
— 
o £ 


cS Ose 229 fa 


2 


040S34 
O40S66 
040772 
041024 
041230 


040062 


DT14.4: .WORD 

- WORD 
OT14.5: .WORD 
OT14.6: .WORD 


DT14.7: .WORD 


OT1S.0: .WORD 


DOT15.1: 


OT15.2: . 


DT15.3: . 


OT1S.4%: . 


OT15.5: . 


OT1S.6: . 


OT15.7: . 


OT16.0: . 
DT16.1: . 
DT16.2: .WORD 
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BLK4+SRHCS1 , BLK4Y+SRHCS2, BLK4+$RHDS1 , BLK4Y+SRHER1 
BLK4+SRHER2, BLK4Y+SRHERS, BLKY+SRHEC! , BLKY+$RHEC2, 0 
BLKS+S$RHCS1 , BLKS+S$RHCS2, BLKS+SRHDS1 , BLKS+SRHER! 
BLKS+S$RHER2, BLKS+SRHERS, BLKS+SRHEC1 , BLKS+SRHEC2, 0 
BLK&+S$RHCS1 , BLKG+SRHCS2, BLKE+SRHDS1 , BLKE+SRHER1 
BLK&+SRHER2, BLKG+SRHERS, BLKE+SRHEC1 , BLKE+SRHEC2,0 
BLK7+S$RHCS1 , BLK7+SRHCS2, BLK7+S$RHDS1 , BLK7+$RHER1 
BLK7+SRHER2, BLK7+SRHERS, BLK7+SRHEC1 , BLK7+SRHEC2, 0 


BLKO+SRHNC, BLKO+SRHBA, BLKO+SRHDA, BLKO+SRHAS, BLKO+SRHLA 
BLKO+SRHDB, BLKO+SRHMR, BLKO+SRHDT , 0 
BLK1+SRHWC,BLK1+SRHBA, BLK1+SRHDA, BLK1+SRHAS, BLK1+SRHLA 
BLK1+SRHDB, BLK1+SRHMR, BLK1+SRHODT, 0 
BLK2+SRHWC, BLK2+SRHBA, BLK2+SRHOA, BLK2+SRHAS, BLK2+SRHLA 
BLK2+SRHDB, BLK2+SRHMR, BLK2+SRHDT,0 
BLK3+SRHWC, BLK3+SRHBA, BLK3+SRHDA, BLK3+SRHAS, BLK3+SRHLA 
BLK3+SRHDB, BLK3+SRHMR, BLK3+SRHDT,0 
BLK4+SRHWC, BLK4+SRHBA, BLK4+SRHDA, BLK4+SRHAS, BLK4+SRHLA 
BLK4+SRHDB, BLK4+SRHNR, BLK4+SRHDT, 0 
BLKS+SRHWC , BLKS+SRHBA, BLKS+SRHDA, BLKS+SRHAS , BLKS+SRHLA 
BLKS+SRHDB, BLKS+SRHNR, BLKS+SRHDT, 0 
BLK6+SRHWC , BLK6+SRHBA, BLKE+SRHDA, BLKE+SRHAS , BLKE+SRHLA 
BLK6+SRHDB, BLKG+SRHNR, BLKG+SRHOT, 0 
BLK7+SRHWC, BLK7+SRHBA, BLK7+SRHDA, BLK7+SRHAS, BLK7+SRHLA 
BLK7+SRHDB, BLK7+SRHMR, BLK7+SRHOT, 0 


BLKO+SRHSN, BLKO+SRHOF , BLKO+SRHCA, BLKO+SRHCC, BLKO+STATUS, 0 
BLK1+SRHSN, BLK1+SRHOF , BLK1+SRHCA, BLK1+SRHCC, BLK1+STATUS, 0 
BLK2+SRHSN, BLK2+SRHOF , BLK2+SRHCA, BLK2+SRHCC, BLKE+$TATUS, 0 





MAINDEC=11 
DERPNS. Pil 


10211 


10613 
102 


cases 


SISA 


x 
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PRINTER/TELETYPE MESSAGE 


040064 
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foe Re pe 


8 8 88 saz 


—e 
-— 
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ray 
8o- 
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8 


Sal 


aoe g 
RSPR 


a 


a eee ees 
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8 8 88 oe 


Z 
R 


RaRSe 
RRS RB 


RESRRR 
oes 
=o’ .£o 


site 2 


_— 


DT16.3: .WORD 
DT16.4%: .WORD 
DT16.5: .WORD 
DT16.6: .WORD 
DT16.7: .WORD 
DF2: BYTE 
OF3: -BYTE 
DF4: BYTE 
-EVEN 

LIN2C: .ASCIZ 
LINeP: .ASCIZ 
LINeM: .ASCIZ 
LINeS: .ASCIZ 
LINN3: -ASCIZ 
T: -ASCIZ 
LINN3: .ASCIZ 
S: > 
LINP3: Beets 
LINS3: .ASCIZ 


wre 
y 
w 
m 
? 
o 
- 
by 
an 
vo 
YD 
fr 
Tw 
- 
wn 


BLK3+SRHSN , 8LK3+SRHOF , BLK3+SRHCA, BLK3+SRHCC , BLK3+$TATUS , 0 
BLK4+SRHSN, BLK4+SRHOF , BLK4+S$RHCA, BLK4Y+SRHCC , BLKY+STATUS, 0 
BLKS+SRHSN, BLKS+SRHOF , BLKS+SRHCA, BLKS+SRHCC , BLKS+STATUS, 0 
BLK6+SRHSN, BLKE+SRHOF , BLKE+SRHCA, BLKE+SRHCC , BLKE+STATUS, 0 
BLK7+$RHSN, BLK7+$RHOF , BLK7+SRHCA, BLK7+$RHCC, BLK7+STATUS, 0 


1,0,0,C,0,0 


1,0,0 
1,0,0,0 


/PRESENT ORDER = / 


/ PREVIOUS ORDER = / 


ZERROR OCCURED DURING NON-DATA TRANSFER OPERATION/ 


@* ERROR AT BAD TRACK/SECTOR@ 


ZERROR AT C/ 
4 1/ 
/PRESENT ADDR = C/ 


4 S/ 
/ PREV ADDR = C/ 


“START CYL = / 


™“ 


a 3 


ESSA RRS 
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047105 
020114 
are 

114 
020075 


aa 


000 
04211 
O4111 


2 
= 


Ge Geese 


BS §e 
= é2 9% 


z 
- 
ad 
oa 
wm 


i! 
B 


Bese 
TAR 


R 
- 





27-SEP-76 15:05 PAGE 216 


LINENS: 


LINAS: 


LINT3: 
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LINDS: 
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-ASCIZ 


-ASCIZ 
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ASCIZ 


-ASCIZ 


-ASCIZ 
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7 RHCA = / 


/ 
4 
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/BUFFER ADDR 
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@BAD TRK/SEC ADRS FOR ORV #d 
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€15><12>/PROGRAM INITIALIZATION COMPLETE/<15><!2><12> 
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